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RRE  MEMORANDUM  No  2875 

PSEUDO  A  MACRO-BASED  HIGH  LEVEL  LANGUAffi  FOR  THE  PDP-11 


.  SUMMARY 

PSEUDO  is  a  pseudo-high-level  language,  developed  for  the  PDP-11  computer.  The 
language  is  extremely  efficient  and  particularly  suited  to  real-time  programming 
applications . 
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1  Introduction 

The  PSEUDO  language  has  been  developed  for  use  with  the  PDP-11  disc  operating 
system,  for  a  specific  real-time  control  application.  High  level  source  text 
statements  are  interpreted  as  macrocalls,  which  are  expanded  by  the  standard 
DOS  MACRO-11  assembler. 

PSEUDO  provides  the  features  normally  associated  with  high  level  langauges,  viz, 
good  source  text  readability,  self-documentation,  and  standardisation  of  certain 
data  processing  techniques.  Additionally,  it  allows  facilities  which  are  not 
normally  associated  with  high  level  langauges,  but  which  were  considered 
essential  to  the  current  application.  These  are:- 

i  Uninhibited  use  of  word  or  byte  operations. 

ii  Unlimited  use  of  all  PDP-11  addressing  modes. 

iii  User  control  of  register  assignment  and  usage,  including  stack 
operations. 

iv  High  efficiency,  in  terms  both  of  run-time  and  storage,  with  user 
choice  of  one  or  other  type  of  efficiency  in  conflicting  situations. 

No  attempt  has  been  made  in  PSEUDO  to  replace  easily  understood  assembly  language 
statements  simply  to  emulate  existing  high  level  statements.  However,  the  need 
to  write  obscure  assembly  language  has  been  eliminated,  particularly  in  code 
associated  with  loops  and  conditionals. 

2  BACKGROUND 

Since  PSEUDO  is  designed  specifically  around  the  PDP-11  and  its  assembler,  some 
features  of  these  must  be  described  briefly  before  proceeding  to  a  description 
of  PSEUDO  itself. 

2.1  The  Processor 

The  PDP-11  is  a  16  bit  machine,  with  almost  equal  facility  of  byte  or  word 
operations.  Peripheral  devies  are  allocated  specific  addresses,  allowing 
memory  reference  instructions  to  operate  directly  on  data  held  in 
peripheral  registers.  The  machine  has  eight  program  accessible  registers, 
R0-R7.  Two  of  these  are  used  as  program  counter  (R7)  and  stack  pointer  (R6) 
respectively,  leaving  six  which  can  be  used  generally  as  accumulators, 
pointers  or  index  registers.  The  stack  pointer  points  to  the  last  input  of 
a  last  in  -  first  out  stack  held  in  core.  Linkage  parameters  are  moved 
automatically  to  and  from  this  stack  (by  hardware),  to  handle  interrupts, 
sub-routine  calls  and  traps  (software  interrupts). 
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2.2  The  Assembler 


The  DOS  assembler,  MACR0-11R,  is  a  two  pass  assembler  (the  second  pass 
handled  automatically  by  DOS)  producing  relocatable  object  code  modules  tor 
input  to  a  linker.  In  conjunction  with  the  machine  architecture,  the 
assembler  allows  easy  writing  of  position  independant  and/or  re-entrant  code. 
MACRO- 1 1R  includes  a  macro  processor.  A  comprehensive  set  of  assembly 
directives  and  macro-expansion  directives  are  provided;  these  are  used 
extensively  by  PSEUDO  as  discussed  briefly  in  Appendix  1. 

2.3  MACRO-11  Syntax 

PSEUDO  incorporates  the  syntax  of  the  MACRO-11  assembly  language;  ie,  any 
legal  MACRO-11  statement  is  a  legal  PSEUDO  statement.  The  relevant  syntax 
rules  refer  to  expressions  and  register  expressions  and  are  as  follows:- 

(Backus  notation  has  been  dropped  in  favour  of  typographical  layout.  Each 
syntax  rule  has  a  class  name  on  its  left-hand  side.  Alternative  expansions 
for  the  class  are  on  the  right-hand  side,  each  on  a  new  line.) 

Expression  *  Term 

Unaryoperator  Term 

Expression  Binaryoperator  Term 

Term  “  Constant 

Symbol 

Asciicon version 
<Expression> 

Constant  *  Octalnunber 

Decimal  number 

Octalnunber  -  Sequence  of  octal  digits 

Decimalnumber  «  Sequence  of  decimal  digits  terminated  by  period 

Symbol  ■  Sequence  of  letters  or  digits  starting  with  a  letter 

Asciiconversion  -  'Asciicharacter 

"Asciicharacter  Asciicharacter 
Binaryoperator  •  ^ 

*  (multiply) 

/  (divide) 

&  (logical  AND) 

.'  (logical  OR) 


Unaryoperator 


a  + 


Expressions  are  evaluated  from  left  to  right,  with  no  operator  hierarchy 
except  that  tenw  in  paired  angle  brackets  are  evaluated  first. 

SyiAols  nay  be  defined  as  labels,  to  refer  to  specific  locations  or  data,  or 
may  be  created  and  given  values  by  symbolic  assignmsnt  statements  of  the 
form:- 

Symbol  ■  Expression 
eg: 

ON  -  1 
NOTOFF  -  ON 
TTYREGISTER  -  777562 

Registers  may  be  named  symbolically  by  the  register  assignment  statement:- 
Symbol  ■  X  Octaldigit 

A  register  expression  is  any  expression  containing  a  symbol  previously 
assigned  to  a  register,  eg:- 

R1  -  Zi  ;  initial  assignment  of  symbol  R1  to  register  1 

POINTER  -  R1  ;  assignment  of  name  POINTER  to  register  1. 

;  R1  is  a  single  term  register  expression. 

2.4  Addressing  Modes 

Memory  reference  statements  consist  of  an  operand  (instruction  nem-monic) 
followed  by  one  or  two  operand  address  specifications.  These  statements 
assemble  to  one,  two  or  three  words,  depending  on  the  number  and  modes  of  the 
address  specifications.  Address  specification  formats,  A,  are  expressed 
below  in  terms  of  E,  R  and  ER,  where  E  is  any  expression,  R  is  any  register 
expression  and  ER  is  any  register  expression  or  any  expression  having  a  value 
in  the  range  0-7. 

MODE  FORMAT  OF  A 


Register 

R 

The  register  defined  by  R  contains  the 
operand. 

Deferred  register 

(ER) 

The  register  defined  by  ER  contains  the 
address  of  the  operand. 

Auto- increment 

(ER)+ 

The  contents  of  the  register  defined  by 
ER  are  incremented*  after  being  used  as 
the  address  of  the  operand. 

Auto-decrement 

-(ER) 

The  contents  of  the  register  defined  by 
ER  are  decremented*  before  being  used  as 
the  address  of  the  operand. 

MO  IX 

FORMAT 

OF  A 

Deferred  auto¬ 
increment 

@(ER)* 

The  register  defined  by  ER  contains  the 
pointer  to  the  address  of  the  operand. 
The  pointer  is  incremented  after  use. 

Deferred  auto¬ 
decrement 

@-(ER) 

The  contents  of  the  register  defined  by 
ER  are  decremented  before  being  used  as 
a  pointer  to  the  address  of  the  operand. 

Index 

E(ER) 

The  value  of  E  plus  the  contents  of  the 
register  defined  by  ER  gives  the  address 
of  the  operand. 

Deferred  index 

@E  (ER) 

The  value  of  E  plus  the  contents  of  the 
register  defined  by  ER  gives  the  address 
of  the  operand. 

Immediate 

m 

The  value  of  E  is  the  operand. 

Absolute 

The  value  of  E  is  the  address  of  the 
operand.  The  address  is  assembled  in 
absolute  form. 

Relative 

E 

The  value  of  E  is  the  address  of  the 
operand.  The  address  is  assembled  in 
relative  form. 

Deferred  relative 

@E 

The  value  of  E  is  the  address  of  the 
address  of  the  operand. 

*By  one  for  byte 

instructions 

,  two  for  word  instructions. 

The  first  six  modes  tabulated  do  not  increase  the  assembled  word  length  of 
the  instruction.  All  other  modes  add  one  word. 

Eg:  assuming  PARTSUM,  OFFSET  and  TOTAL  have  been  asigned  to  registers, 


ADD  (PARTSUM) +,  TOTAL 


ADD  WORKSPACE  (OFFSET),  TOTAL 


assembles  as  one  word.  The  word 
pointed  to  by  PARTSUM  is  added  to 
TOTAL*  PARTSUM  contents  are  then 
incremented  to  point  to  next  word 
location. 

assembles  as  two  words* OFFSET 'TH 
item  of  WORSPACE  is  added  to  TOTAL. 


MOVB  ^'A,  @  &  TTYREC 


assembles  as  three  words.  Outputs 
ASCII  rep  of  A  to  teletype. 


3  PSEUDO  STATEMENTS 


PSEUDO  statements  consist  of  one  or  more  macro  calls,  each  consisting  of  a  key 
word  (macro  defining  symbol)  followed  by  macro  parameter  words.  Legal  word 
separators  are  space(s)  tab(s)  or  comma. 


The  following  conventions  are  used:- 


i  E ,  E 5  .  are  any  expressions,  as  defined  in  2.3. 

ii  A,  A.  .  are  any  operand  address  specification  formats,  as  defined 

in  2.4. 

% 

iii  S,  .  are  any  legal  symbols,  as  defined  in  2.3. 


iv  Square  brackets  indicate  a  choice  between  two  or  more  parameters. 

v  Parameters  represented  by  a  character  string  in  round  brackets  may  be 
replaced  by  any  character  string  not  including  <  >  (  ) ;  or  any 
separator. 

vi  Parameters  represented  by  numerals  in  round  brackets  may  be  omitted. 

Layout  characters  may  be  used  freely,  provided  that  parameter  words  remain  on 
the  same  line  as  their  associated  macro  defining  name.  Angle  brackets,  where 
shown,  are  mandatory  (these  allow  character  strings  including  macro  parameter 
delimiters  to  be  passed  as  a  single  actual  parameter  to  the  macro  processor). 


3.1  Symbolic  Assignments 


All  symbolic  assignments  and  global  declarations  required  by  the  language 
itself  are  made  by  calling  the  macro  PSEUDO.  These  include  the  comnonly 
used  symbols 

RO  -  ZO 

R1  -  Z1 

R7  -  Z7 

SP  »  R6  (stack  pointer) 

PC  =  R7  (program  counter) 

SR  *  177776  (status  register) 

SWR  *  177570  (switch  register) 


CR  -  15 


(Ascii,  carriage  return) 


LF  -  12 


(Ascii,  line  feed) 


SPACE  -  40  (Ascii,  space) 


3.2  Data  Allocation 


Data  storage  allocations  are  made  by  word,  byte,  list  or  buffer  declarations 
using  the  macro  CREATE : - 

<S.,  S,  .  S  >  (1)  (2)  (3)  (4)  (5)  (6)  (7)  (8)  (9) (10) 

l  i  n 


S  ,  initialised  to  zero. 


CREATE 


WORDS 

[bytes 


allocates  words  or  bytes  named  S^,  S^ 


•  •  •  •  9 


Eg: 


CREATE  WORDS  <WORDl ,WORD2> 
CREATE  BYTES  < FLAG 1 , FLAG2 .DONE > 


CREATE  LIST  S  E, 


WORDS 

BYTES 


E„ 


FOR  INPUT/OUTPUT  FLAGS 
(I)  (2)  (3)  (4)  (5)  (6)  (7) 


allocates  a  block  structured  list  named  S,  E ^  words  or  bytes  long.  words 
or  bytes  per  block,  headed  by 


S-10: 

Length  of  data  area  in  bytes 

S-8: 

Input  pointer  location,  preset  to  S 

S-6: 

Output  " 

S-4: 

Size  of  block  in  bytes 

S-2: 

Address  of  last  block 

S  : 

Data  area 

eg,  (identical 

declarations) 

CREATE  LIST  TYRES  20. WORDS  5 

CREATE  LIST  TYRES,  24  WORDS,  5  PER  BLOCK 

CARS  -  4  WHEELS  -  5 

CREATE  LIST  TYRES,  CARS*WHEELS  WORDS,  WHEELS  PER  CAR  -  5,  INCLUDING  SPARE. 


The  examples  above  illustrate  how  documentation  can  be  built  in  to  statements, 
using  the  optional  macro  call  parameters. 

CREATE  BUFFER  S  E  (1)  (2)  (3)  (4)  (5)  (6)  (7)  (8)  (9) 


allocates  an  input/output  buffer  named  S,  with  a  data  area  of  E  bytes, 
with  header 

S  :  Size  of  data  area  in  bytes  (E) 

S+2  :  Location  for  status/mode  bytes.  Set  to  olOOOOO  (Done,  no  errors) 

S+4  :  Location  for  message  character  count.  Set  to  E 

S+6  :  Start  of  data  area, 

eg,  (identical  samples) 

CREATE  BUFFER  BUFFI  64.  CHARACTERS 
TTYCHARS  -  100 

CREATE  BUFFER  BUFFI,  TTYCHARS  LONG,  FOR  TELETYPE  INPUT. 
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3.3  Data  Presetting 

Items  of  data  may  preset,  using  the  macro  WITH. 

WITH  (DATA)  <E  ,  E  ...  E  > 
i  l  n 

associates  values  E^,  E ....  E^  with  corresponding  words  or  bytes  in  a 

preceding  CREATE  statement.  WITH  statements  may  be  made  consecutively.  If 
the  preceding  CREATE  statement  created  a  list  or  buffer,  data  insertion 
starts  at  the  first  word  or  byte  of  the  data  area. 


eg: 

CREATE  BYTES  <ONE,  TWO,  THREE,  TEN,  SIXTEEN,  FIFTY,  TW056> 

WITH  DATA  <1,2,3, 10,20> 

WITH  DATA  <50. ,400> 

.EVEN 

CREATE  WORDS  TW056ADDRESS.ASCIIXY,  TWOADDRESS .LEFT AI ZERO 
WITH  DATA  <TW056,"XY,ONE+1> 

CREATE  BUFFER  TTYOUTPUT , 16 .  CHARS 

WITH  DATA  <,0,,U,,T,'P,'U, ’T, SPACE, *M, 'E, 'S, 'S, 'A, 'G, 'E,CR,LF> 

Note  that  the  .EVEN  directive,  necessary  to  allow  word  assembly  after 
creating  an  odd  number  of  bytes,  must  come  after  the  byte  data  WITH 
statements . 


3.4  List  Processing 


POINT  A  (AT) 


FIRST* 

LAST 

IP 

OP 


BLOCK  (OF)  E 


sets  the  location  defined  by  A  to  the  address  of  the  first  block,  last  block, 
block  pointed  to  by  the  list  header  input  pointer,  or  block  pointed  to  by  the 
list  header  output  pointer,  of  the  list  defined  by  E. 


Eg 


POINT  POINTER  AT  IP  BLOCK  OF  LISTl  ;  POINTER  may  be  a  register  or 

;  word  location. 

POINT  @ (POINTER)  TO  LAST  BLOCK  IN  LISTl  ;  POINTER  must  be  a  register, 

;  which  contains  the  address  of 

;  the  address  of  the  word  which 
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gets  pointed  to  the  last  block. 


POINT  A  (PAST)  END  (OF)  E  (1) 

sets  the  location  defined  by  A  to  the  address  of  the  first  byte  following 
the  data  area  of  the  list  defined  by  E. 


Eg. 

POINT  @WORDl  PAST  END  OF  LIST1  DATA  ;  W0RD1  contained  the  address 


of  the  pointer. 


STEP 


IP 

OP 

A 


(POINTER)  [ON  (THROUGH)  E 

[BACK 


moves  the  header  input  pointer,  header  output  pointer,  or  the  pointer 
defined  by  A,  on  or  back  one  block  through  the  list  defined  by  E. 


Eg. 

STEP  IP  VALUE  ON  THRU  LIST1 


STEP  POINTERS (INDEX)  PNTR  BACK  THROUGH  LIST1 
STEP  R1  POINTER  ON  PAST  LIST1 


CYCLE 


'IP 

OP 

A 


(POINTER) 


(THROUGH)  E 


is  the  same  as  STEP,  except  that  the  pointer  is  reset  to  the  first  block  if 
cycled  on  from  the  last  block,  and  vice-versa. 


SET  E  [IP 

[op 

transfers  the  contents  of  the  location  defined  by  A  to  the  header  input 
pointer  or  output  pointer  location  of  the  list  defined  by  E. 


(TO)  A 


Eg, 

SET  INPUTLIST  IP  TO  NEXT  INPUT 

SET  LIST1  OP  TO  #  LIST1+  <4*BL0CKSIZE>  ;  Point  OP  to  fourth  block. 

;  BLOCKS IZE 

;  value  set  by  previous 

;  assignment. 
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GET  E  BLOCKS IZE  IN  A 


secs  Che  location  defined  by  A  Co  Che  block  size  (in  bytes)  of  Che  list 
defined  by  E . 


Eg,  Co  access  block  N  of  LIST  1:- 
GET  LIST1  BLOCKSIZE  IN  BLOCKN 
MUL  BLOCKN  BY  #N,  ANSWER  IN  BLOCKN 
CLR  LIST1 (BLOCKN) 

3.5  Buffer  Processing 


BLOCKN  assigned  Co  a  register 
See  belcw  (3.10) 

Clear  first  word  of  block  N. 


Buffer  headers  interface  Co  an  executive  program  handling  input/output  Co 
non-file  devices  on  a  character  per  interrupt  basis.  Briefly,  the 
character  count  word  indicates  the  number  of  characters  for  input  or  output 
from  the  buffer,  status  byte  indicates  transmission  done  or  error  conditions, 
and  mode  byte  indicates  the  type  of  message  (binary  or  ASCII,  formatted  or 
unformatted) . 


POINT  A  (TO)  E  DATA 

points  the  location  defined  by  A  to  the  start  of  the  data  area  of  the  buffer 
defined  by  E. 


Eg, 

POINT  CHARPOINTER  AT  TTYBUFFER  DATA 


POINT  A  (PAST)  E  DATA  END 

points  the  location  defined  by  A  to  the  first  byte  following  the  last 
message  character  in  the  data  area  of  the  buffer  defined  by  E. 

Eg, 

POINT  LABEL+2  PAST  BUFFER  DATA  END  ;  pointer  is  held  in  word 

following  LABEL. 


GET  E 


STATUS' 

MODE 

COUNT 


(IN)  A 


allows  transfer  of  buffer  header  parameters  to  user  locations  defined  by  A. 


Eg. 

GET  BUFFER  STATUS  IN  STATBYTE 
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Since  status  is  a  byte,  STATBYTE 
may  be  a  byte. 


GET  TTYBUFF  COUNT  IN  "COUNT 


Count  is  a  word,  lu.-m  o  I'CiT'N  I 
snould  be  a  word  (or  register'. 


SET  E  rO'jNi  (TO)  A 

sets  the  buffer  header  count  defined  by  E  to  the  value  held  at  the  location 
defined  by  A. 


Eg. 

SET  TTYOUTPUT  COUNT  TO  #64. 

SET  BUFFI  COUNT  FROM  CHARCOUNT 


READY  E  (FOR) 


ASCII 

FASCII 

BIN 


(1)  (2)  (3)  (4) 


FBIN 


sets  the  mode  byte  of  the  buffer  defined  by  E,  for  input  or  output  in  the 
specified  mode. 


Eg. 

READY  TAPEBUFFER  FOR  FBIN  INPUT  FROM  H.S.  READER 


OUTPUT  E  (TO) 


LSP" 

HSP 

TTY 


(NOTIFY)  A 
VOID 


initiates  interrupt  driven  output  from  the  buffer  specified  by  E  to  the 
specified  device  (teletype  punch,  high-speed  punch  or  teletype).  If  the 
NOTIFY  A  clause  is  included  the  input/output  executive  will  make  a  call  (at 
interrupt  priority  level)  to  the  procedure  identified  by  A  when  buffer 
transmission  is  done,  or  when  an  error  is  detected. 


Eg, 

OUTPUT  TTYMESSACE  TO  TTY 

OUTPUT  BUFFER  TO  LSP,  TELL  NEXTBUFFERPROCESS 


INPUT 

~lsr' 

(TO)  E 

(NOTIFY)  A  " 

HSR 

KBD  _ 

VOID 

L 

similarly  initiates  input  from  low-speed  reader,  hign-speed  reader  or  teletype 

keyboard . 
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Eg, 

INPUT  KBD  TO  KBOARD 

INPUT  HSR  TO  TAPEBUFFER,  NOTIFY  @PROCADDR£SSES (DEVICE) 

■*  * 

TYPE  <MiSSAGE>  (NOTIFY)  A 
VOID 

outputs  MESSAGE  (any  character  string  not  including  ")  to  the  teletype 
printer*  followed  by  CR,  LF. 

Eg. 

TYPE  <THIS  IS  A  MESSAGE > 

TYPE  <NOW  WE  ENTER  Pl>,  ENTER  PI 

TYPE  NL 

outputs  CR,  LF  to  the  teletype  printer. 

tio  does  TYPE  <>,  but  at  the  expense  of  generating  an  empty  buffer). 

TEST  E  (1)  (2)  (3)  (4) 

tests  the  status  byte  of  the  buffer  defined  by  E  and  suspends  processing 
until  any  previously  initiated  input  or  output  is  done,  or  an  error  detected. 

Eg, 

TEST  OPBUFFER  READY  FOR  NEXT  OUTPUT 

TEST  E  ERRORS 

sets  up  a  mechanism  for  use  of  the  following  JUMP  statements :- 

JUMP  TO  E  IF  [EOM  "|  ERROR 
EOF 
TRUNC 
MODE 
CHKSUM 

causes  a  jump  to  the  address  specified  by  E  if  the  specified  error  is 
detected  by  the  input/output  executive.  The  errors  are:- 

EOM:  end  of  medium,  eg,  no  tape  in  punch. 

EOF:  end  of  file. 

TRUNC:  truncation  of  an  input  message  (buffer  too  small). 
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M()I)K:  message  not  formatted  according  to  mode. 

CHKSUM:  Checksum  error  on  formatted  binary  inputs. 

Any  number  of  different  error  types  may  be  specified,  in  any  order. 

Eg. 

TEST  BUFFER  ERRORS 
JUMP  TO  LI  IF  TRUNC  ERROR 
JUMP  TO  L2  IF  MODE  ERROR 
TEST  IPBUFFER  ERRORS 
JUMP  TO  BADI  IF  CHKSUM  ERROR 
JUMP  TO  BAD2  IF  EOM  ERROR 
JUMP  TO  BAD3  IF  MODE  ERROR 
JUMP  TO  BADA  IF  EOF  ERROR 


TEST  and  TEST/JUMP  statements  need  not  innediately  follow  the  associated 
INPUT  or  OUTPUT  statement.  They  could,  for  example,  be  located  at  addresses 
specified  in  "notify"  clauses. 

Eg. 


OUTPUT  BUFFER  TO  LSP,  NOTIFY  DONE 

'  ;  Processing  continues  while 

'  •  buffer  is  emptied  by  interrupt. 

t 

(End  of  procedure) 

DONE:  (Start  of  test  procedure) 

TEST  BUFFER  ERRORS 

JUMP  TO  BAD1  IF  MDDE  ERROR 

etc. 


Blank  parameter  fields  in  output  buffers  may  be  filled  using  the  CONVERT 
macro 


CONVERT 

WORD' 

Ax  (TO)  (ASCII)  fOCT) 

BYTE 

M 

(AT)  A. 


converts  the  word  or  byte  at  the  location  specified  by  A.  to  an  octal  or 
binary  ASCII  character  string  in  the  byte  field  specified  by  A^> 

Eg, 

CONVERT  WORD  AZIMUTH  TO  ASCII  OCT  AT  #OPBUFFER+25 

Debug  teletype  listing  is  obtained  using  the  macro  LIST:- 
LIST  Ax  IwORDsl  (FROM)  A2  (IN)  IoCtI 


Processing  is  suspended  while  the  listing  is  in  progress. 

Eg, 

LIST  #4  WORDS  FROM  #OPDATA  IN  OCT 
3.6  Conditionals 

Conditional  statements  are  constructed  from  the  macros  IF,  THEN,  ELSE  and  END. 
The  general  form  of  conditional  clause  is 
IF  IbYTeI  Aj  R  A2 


where  R  ■  (  less  than 

)  greater  than 
■  equal  to 
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)(  not  equal  to 
)  =  greater  chan  or  equal  to 
(•*  less  than  or  equal  to 

S(  arithmetically  less  than  (signed  integer) 

S)  arithmetically  greater  than 

S)“  arithmetically  greater  than  or  equal  to 

S(“  arithmetically  less  than  or  equal  to 

The  items  compared  are  the  operands  defined  by  address  specif ications  A 
and  A^.  Thus:- 

1F  WORD  W1 


1 


IF  BYTE  R1 


IF  WORD  Wl-2 


»  W 2  means  "if  the  word  named  (whose  address  is)  W1  is  equal 
to  the  word  named  W2" . 

m  @BYTEADDRESS  means  "if  the  low  order  byte  in  register  1 
equals  the  byte  whose  address  is  in  location  BYTEADDRESS. 

*  &U  means  "if  the  word  preceding  W1  is  equal  to  4",  and 
is  not  the  same  as  "IF  WORD  W1  »  #6". 


Conditional  "GOTO"  statements  take  the  form 

(TO)  E 


IF 

byte' 

\  R  A2 

branch" 

WORD 

JUMP 

where  E  defines  a  label. 


Eg, 

IF  BYTE  @BYTE ADDRESSES (INDEX)  -  CHARACTER( INDEX) .JUMP  TO  LABEL 1+6 

BRANCH  is  shorter  and  quicker  than  JUMP,  but  is  restricted  to  a  label  offset 

of  ^123  words.  (Violation  generates  an  assembler  error  report). 

Simple  conditional  consequences  and  alternatives  can  be  contained  in  the 
single  line  statement:- 

IF  (BYTE]  A.  R  A  THEN  -STATEMENT  [ELSE  <STATEMENT> 

[WORDj  1  [VOID 

where  STATEMENT  is  any  MACRO-11  statement,  or  any  single  line  PSEUDO 
statement.  (Note  that  although  THEN  and  ELSE  are  themselves  macro  names, 
in  this  context  they  act  simply  as  parameters  for  the  macro  IF.) 

Eg, 

IF  WORD  W1  )(W2  THEN  *  ADD  W3,W4>  ELSE  -OUTPUT  BUFFER  TO  TTY> 

IF  BYTE  FLAG  -  #0N  THEN  'IF  WORD  W1  =  W2  THEN  -TYPE  <MESSAGE>>> 

Where  more  than  one  line  is  required,  the  construction  is:- 


14 


IF 


THEN  BEGIN 

Consequence  statement  sequence 

END 

ELSE  BEGIN 

Alternative  statement  sequence 

END 

Nesting  is  allowed  to  any  practical  level.  ELSE  BEGIN  clauses  are  optional. 
Eg. 

IF  WORD  Wl  -  W2 
THEN  BEGIN 

IF  BYTE  FLAG  -  #0 
THEN  BEGIN 

TYPE  <W1  -  W2,  FLAG  -  0> 

END 

ELSE  BEGIN 

TYPE  <W1  -  W2,  FLAG  NON-ZERO> 

CLRB  FLAG 

TYPE  <FLAG  RE-SET  TO  ZERO> 

END 

END 

ELSE  BEGIN 

IF  WORD  Wl  )  W2  THEN  <TYPE  <W1  BIGGER>>  ELSE  <TYPE<W2  BIGCER>> 

IF  BYTE  FLAG  -  MO  THEN  <IF  WORD  Wl  -  ,  JUMP  TO  LABEL > 

IF  BYTE  FLAG  MFLAGI 
THEN  BEGIN 


END 


END 


TYPE  < FLAGS  NOT  EQUAL > 
MOVB  F LAG 1, FLAG 
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Incorrect  nesting  in  the  form  of  too  many  "ENDS"  makes  the  END  macro  generate 
an  error  report  and  return  the  nesting  to  base  level.  Too  few  "ENDS"  will 
normally  only  be  detected  by  the  FINISH  macro  used  to  terminate  a  source  text. 
A  check  at  any  END  in  the  text  may  be  forced  by  giving  ? as  a  parameter. 

This  causes  END's  to  be  inserted  as  required  to  return  the  nesting  to  base 
level,  with  an  error  report  if  applicable. 

The  IF  clause  in  all  constructions  of  conditional  statements  may  take  a  form 
which  makes  use  of  the  state  of  specific  bits  in  the  processor  status  word. 
These  bits,  called  N,  V,  C  and  Z,  are  set  following  instruction  execution  as 
follows 

Zt~  if  the  result  was  zero. 

N:-  if  the  result  was  negative. 

C:-  if  a  carry  from  the  most  significant  bit  occurred. 

V:*  if  arithmetic  overflow  occurred. 

This  type  of  IF  clause  takes  the  form 
IF  CONDITION 

where  CONDITION  is  one  of  the  symbols  CSET,  C CLEAR,  NSET,  N CLEAR,  VSET, 

VCLEAR,  ZSET,  Z CLEAR,  POSITIVE,  NEGATIVE,  ZERO,  NONZERO,  SET,  CLEAR, 

OVERFLOW  or  CARRY,  or  any  symbol  equated  to  one  of  these  symbols  by  an 
assignment  statement. 

Eg. 

ADD  A,B 

IF  ZERO,  BRANCH  TO  LABEL  ;  if  A  was  equal  to  -B. 

TST  WORD1  ;  Test  WORD  1 

IF  POSITIVE  THEN  <P>  ELSE  <Q>  ;  If  WORD  1  is  positive  do 


;  statement  P  else  do  statement 

;  Q 

BIT  #1100,  W0RD1  ;  Test  bits  6  and  9  of  WORDl 

IF  SET .  ;  If  either  set  . 

BIC  #1100,  WORDl  ;  Clear  bits  6  and  9  of  WORDl 

IF  NONZERO .  ;  If  any  other  bits  set  . 


BLACK  -  POSITIVE 
WHITE  -  NEGATIVE 
GREY  -  ZERO 
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TST  GREYSCALE 
IF  BLACK  JUMP  TO  LI 
Ip  WHITE  JUMP  TO  L2 
IF  GREY  JUMP  TO  L3 

The  last  example  shows  three  successive  tests  being  applied  to  the  same 
result.  The  tests  themselves  do  not  change  the  result,  nor  do  branch,  jump, 
jump  to  subroutine,  and  return  from  subroutine  instructions.  Thus  the 
status  bits  can  be  used  as  Boolean  communicators. 

Eg. 

ERROR  «  VSET 
« 

I 

SEN  ; 

DO  PI  ; 

IF  ERROR  ....  ; 

IF  WORD  W1  -  W2 
THEN  BEGIN 

IF  BYTE  B1  -  B2  THEN  <D0  Pl>  ELSE  <D0  P2> 

END 

ELSE  BEGIN 

IF  BYTE  B1  -  B2  THEN  <D0  P3>  ELSE  <D0  P4> 

END 

IF  ERROR  ....  ;  If  error  flagged  by  whichever  procedure  ran  . 

Care  must  be  taken  to  avoid  ambiguity,  however,  when  status  word  conditionals 
follow  each  other. 

Eg. 

TST  WORD  1 

IF  POSITIVE  THEN  <ADD  W0RD2,  W0RD3> 

IF  ZERO .  ;  "if  W0RD1  is  zero . "  if  W0RD1  is  non-positive,  but 

;  "if  WORD 3  is  now  zero  . "  if  W0RD1  is  positive. 


Set  N  bit  as  a  parameter  for  PI. 
Procedure  call. 

If  PI  set  V  bit  .... 


3.7  Loops 

The  general  fortn  of  construction  for  loop  control  is:- 
LOOP 

LOOP  1FCLAUSE 

Where  IFCLAUSE  can  be  any  of  the  IF  clause  constructions.  If  the  condition 
in  the  IF  clause  is  satisfied,  processor  control  returns  to  the  preceding 
matching  LOOP.  LOOPS  may  be  nested  to  any  (practical)  level. 

An  alternative  construction  is:- 

LOOP 

I 

* 

LOOP  A  TltCS 

where  A  specifies  a  register  or  word  location  where  the  loop  count  is  held. 
This  count  is  decremented  on  each  iteration  of  the  loop,  end  the  loop  is  left 
when  the  count  is  zero.  If  A  specifies  a  register,  this  form  gives  the 
fastest  and  most  economical  method  of  control,  but  is  limited  to  a  loop 
length  of  250  words. 


Eg, 

LOOP 

« 

MOV  COUNT,  LOOPCOUNT 

LOOP 

, 

, 

LOOP 

, 

, 

100P  IF  WORD  W1  -  W2 

i 

LOOP  LOOPCOUNT  TIMES 

, 

BIT  -#MASK,  LOOPCNTRL 

LOOP  IF  SET  ;  Loop  if  any  masked  bits  are  set. 

Nesting  errors  are  detected  and  reported  either  by  the  LOOP  macro  or  by 
FINISH. 

3.8  Stack  Operations 
SAVE  (1) 

puts  the  contents  of  registers  R0-R5  on  stack. 
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Eg. 

SAVE  REGISTERS 
UNSAVE  (I) 

restores  the  contents  of  registers  R0-R5  from  the  stack. 

Eg. 

UNSAVE  REGISTERS 

STACK  <A. ,  A  ,  A, . A  > 

l  i  J  n 

pushes  the  words  defined  by  A. -A  onto  the  stack. 

i  n 

Eg, 

STACK  < ITEM1 ,  ITEM2,  (POINTER) ,  ^ADDRESSES (INDEX)  ,#4  ,#"XY> 

UNSTACK  <A, ,A»,A_  . ,A  > 

l  L  J  n 

successively  pops  word  from  the  slack  into  the  specified  locations. 

Eg, 

UNSTACK  <W0RD1,W0RD2, 6  (POINTER)  V  :j:*DEX)+> 

RESERVE  N  (1)  (2)  (3)  (4)  (b)  (6)  (7)  (8) 
makes  space  on  the  stack  for  N  words. 

Eg, 

RESERVE  4  WORDS  ON  STACK  FOR  SUB-ROUTINE  ANSWERS. 

DISCARD  N  (1)  (2)  (3)  (4)  (5)  (7)  (8) 
pops  N  word  off  the  stack  and  discards  them. 

Eg, 

DISCARD  4  STACK  WORDS  JUST  USED  FOR  SUB-ROUTINE  ANSWERS. 

3.9  Procedure  Cal  Is 

Procedure  input  or  output  parameters  may  be  passed  on  stack,  or  in  registers. 

DO  A  -  A  ,  A„ ,  . A  > 

12  n 

puts  the  words  specified  by  A^,  A^  .  A^  on  stack,  enters  the  program 

specified  by  A,  and  on  return  restores  the  stack  to  its  original  state. 

Eg:- 

DO  PI  <PARAM1 ,  #5,  LIST (INDEX) ,  @(R1)>  ;  Direct  entry. 
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DO  P2 (SWITCHVALUE) 


;  Switched  entry  (no  para- 
;  meters)  via  a  jump  table 

;  Indirect  entry. 


DO  @PROCADDR£SS  <PARAM1 ,  PARAM2,  #"XY> 

DO  (<JPROC(PROCNUMBER)  <PARAM1  ,PARAM2>  ;  Switched  indirect  entry, 

;  via  a  procedure  address 
;  table. 

These  calls  use  the  program  counter  as  a  linkage  register.  The  correct 
procedure  exit  is  set  up  by  the  macro  call  "EXIT". 

A  calling  program  can  make  space  on  the  stack  for  procedure  answers  by 
using  RESERVE  and  DISCARD  as  shown  above.  Since  the  stack  is  used  to  hold 
linkage  information  for  interrupt  and  sub-routine  calls,  each  procedure  must 
leave  the  stack  pointer,  on  exit,  in  the  same  position  as  it  found  it  on 
entry. 

3.10  Arithmetic  Operations 

Macros  MUL  and  D1V  assume  use  of  the  extended  arithmetic  unit  (KE11-A).  All 
address  specifications  must  define  words,  and  single  or  double  length  (32 
bit)  operations  are  possible.  Where  double  length  operands  are  specified 
the  first  word  is  least  significant. 

Permissible  MUL  and  DIV  statements  are:- 

MUL  Al  BY  A2 

MUL  Ax  BY  A2  (ANSWER)  IN  A3 
MUL  Aj  BY  A2  (ANSWER)  IN  A^A^ 

MUL  BY  Aj 
DIV  Ax  BY  A2 

DIV  A}  BY  A2  (ANSWER)  IN 

DIV  Ax  BY  A2  (ANSWER)  IN  A3  (REMAINDER)  IN  A 4 
DIV  Ax,A2  BY  A3 

DIV  A  ,  A2  BY  A3  (ANSWER)  IN  A^ 

DIV  Aj,  A2  BY  A3  (ANSWER)  IN  A4  (REMAINDER)  IN  A$ 

DIV  BY  Aj 
Eg. 

MUL  W0RD1  BY  WORD 2  ;  The  product  W0RD1  X  WORD 2 

MUL  BY  WORD 3  ;  X  WORD 3 

» 


MUL  BY  #4,  ANS  IN  W0RD4,  WORDS 


X4  is  put  in  double  length  location 
WORD4,WORD5. 


DIV  (POINTER)  BY  #6 
MUL  BY  @LIST(  INDEX) 

DIV  BY  DIVISOR+4,  ANSWER  IN  WORD1,  REM  IN  (iADDRESS 

4  OPERATION 

The  only  programming  restriction  is  that  symbols  of  the  form  Sdigitstring  should 
not  be  used. 

PSEUDO  macros  are  held  on  disc  in  the  DOS  macro  file  SYSMAC.SML.  A  source  text 
is  headed  by 

. MCALL  MACROS 

PSEUDO 

On  reading  the  .MCALL  directive,  the  assembler  brings  all  PSEUDO  macros  into 
core.  The  macro  call  PSEUDO  is  then  expanded  to  make  all  assignments  and  global 
declarations  required  by  the  language.  The  text  is  terminated  by  the  macro  call 
FINISH  which  checks  for  nesting  errors,  and  supplies  the  normal  ".END"  directive 
recognised  by  the  assembler.  Some  PSEUDO  statements  generate  procedure  calls. 
These  procedures  (BUFFST,  SAVE,  UNSAVE » CNVERT ,  LIST,  NL  and  BIOX)  are  held  in  a 
system  object  file  (PSUSRS.OBJ/CC)  which  must  be  linked  with  the  object  modules 
generated  by  PSEUDO. 

PSEUDO  syntax  errors  are  reported  via  error  reports  embedded  in  the  macro 
definitions.  Errors  in  the  generated  code  are  reported  normally  by  the  assembler, 
with  printout  of  the  offending  code  (in  assembly  language).  Listings  appended 
show: 

Appendix  2:  A  typical  source  text. 

Appendix  3:  Listing  of  the  assembly,  with  load  map  and  symbol  table. 

Appendix  4:  Listing  of  the  assembly,  with  conditionally  satisfied  macro 

expansion. 

Appendix  5:  PSEUDO  macro  definitions. 

Preferably,  PSEUDO  requires  a  system  with  24K  of  core  store.  It  has  been  run  on 
a  minimum  system,  with  16K  of  core,  and  64K  disc,  the  only  restriction  being  that 
some  macros  had  to  be  left  on  disc,  (by  removing  their  names  from  the  MACROS 
macro)  and  called  individually  as  required  by  user  texts.  The  macros  selected 
were  INPUT,  OUTPUT,  MUL,  DIV,  TEST,  JUMP,  READY,  STEP,  CYCLE. 

5  COMMENTS 

PSEUDO  has  so  far  been  in  use  for  about  9  man-months,  producing  10K  of  fairly 
complex  real-time  control  software.  The  time  and  effort  required  to  write  and 
debug  programs  written  in  PSEUDO  has  proved  insignificant  in  relation  to  overall 
system  software  development.  On  no  occasion  has  debugging  required  macro 
expansion  listings.  Run-time  and  storage  overheads  are  virtually  nil,  compared 
with  normal  assembly  language. 

The  power  of  the  language  obviously  is  restricted  in  relation  to  modem  high 
level  languages;  for  example,  with  regard  to  allowable  data  structures  and  data 
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types.  But  the  power  is  sufficient  to  the  present  application,  and  to  most 
real-time  control  applications. 

With  a  little  ingenuity  on  the  part  of  the  programmer  (a  fraction  of  that  which 
he  normally  exercises  in  generating  incomprehensibility)  and  providing  his 
natural  laziness  at  the  typewriter  can  be  overcome,  PSEUDO  can  be  used  to 
produce  highly  readable  source  texts,  requiring  little  additional  documentation. 
In  comparing  PSEUDO  with  a  conventional  compiler,  the  reader  should  note  that 
development  of  PSEUDO  took  only  5  man -weeks. 
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APPENDIX  1  Macro  generation:-  examples. 


In  its  usual  form  a  macro  consists  of  a  defined,  named,  body  of  code,  embodying 
declared  formal  parameters.  The  macro  is  called  by  name,  with  a  list  of  actual 
parameters  which  replace  corresponding  formal  parameters  in  the  expansion.  For 
example,  using  MACRO-11  terminology,  after  the  macro  definition. 

.MACRO  DO  P  ;  macro  name  is  DO.  Its  formal  parameter  is  P 

JSR  PC,  P 

.ENDM 


the  statement 


DO  INPUTPROCEDURE 


will  generate  the  code 
JSR  PC,  INPUTPROCEDURE 

In  MACRO- HR  the  use  of  assembly  directives  (in  the  body  of  the  macro  definition) 
and  macro-processor  directives  allows  modification  of  the  expanded  code,  other 
than  the  simple  replacement  of  formal  parameters  by  actual  parameters.  For 
example,  a  section  of  the  macro  body  may  be  omitted  (at  expansion  time)  if 
particular  actual  parameters  are  blank,  undefined,  have  a  particular  value, 
consist  of  a  particular  character  string,  etc. 

Thus,  the  PSEUDO  macro  definition  for  DO  is:- 


. MACRO  DO  P  X 
.IF  B  <X> 

JSR  PC,  P 
.MEXIT 
.ENDC 

STACK  <X> 


JSR  PC,  P 

ADI)  /VS  10000,  SP 

.ENDM 


If  X  is  blank  (no  actual  supplied), 
generate  the  procedure  call  code, 
and  exit  from  the  macro. 

(end  of  conditional). 

Else  call  macro  STACK,  to  generate  the  code  required  to 
put  the  procedure  parameters  defined  by  X  on  stack,  and 
to  set  symbol  S10000  equal  to  the  number  of  bytes  of  stack 
space  used. 

generate  the  call  to  "P" . 

then  generate  the  code  required  to  reset  the  stack 
pointer,  to  its  original  position. 


Some  macros  used  in  PSEUDO  do  not  generate  code  directly,  but  are  used  to  create 
or  modify  symbols  or  directives  used  by  the  assembler.  An  example  is  the  macro 
SFORMi,  called  by  (nested  in)  macros  LOOP,  ELSE,  END  and  THEN.  This  has  the 
definition:- 


.MACRO  SFORM1  S OOOO 5 


S*S00005  -  . 
.ENDM. 


This  generates  a  symbol  SACTUAL,  vhere  ACTUAL  is  the  symbol  supplied  as  the 
actual  parameter,  and  gives  it  as  value  the  current  (compile-time)  value  of  the 
assembly  location  counter  (represented  by  the  symbol.). 

However,  the  call  of  SF0RM1  has  the  form:- 


2.36*) 


SI’ORMl  'S00004 


The  back-slash  is  a  macro-processor  directive,  indicating  that  the  actual 
parameter  we  wish  to  pass  is  not  the  symbol  S00004  but  the  ASCII  octal  character 
string  representing  the  value  of  S00004.  Thus,  if  S00004  ■  o!05  the  macro  call 
wilL  generate  a  symbol  S105,  and  equate  this  to  the  value  of  the  location 
counter;  ie,  it  will  generate  an  assemble-time  label. 

Typical  usage  of  SF0RM1,  and  of  various  types  of  conditionals  is  exemplified  by 
the  macro  LOOP:- 

. MACRO  LOOP  A  I  X  A  Y 

.IF  B  A 

S00004-S00004+3 
SF0RM1  'S00004 
.MEXIT 
.ENDC 
.IF  NB  A 

.IF  LT  S00004-10 

SY  <LOOP> 

•  ENDC 

.IF  IDN  I,  TIMES 
DEC  A 

J2  \S00004 

SOOOO  4 “ SOOOO  4-3 
•  MEXIT 
.  ENDC 

.IF  DIF  A,  IF  ;  If  "A"  is  not  the  character  string  IF  (and 

;  wo  are  still  in  the  macro!)  there  is  a  syntax 

SY  <  A-  ;  error  so  call  SY  to  report 

.MEXIT  ;  and  exit. 

.ENDC 


End  of  loop. 

If  nesting-level  count  is  less  than  10. 
("ground"  level  is  7)  there  has  been  a  nesting 
error. 

So  call  macro  SY  to  generate  an  error  report 
in  the  assembly  listing. 


;  If  "I"  is  the  character  string  TIMES. 

;  generate  the  code  DEC  "A". 

;  then  call  macro  J2  to  generate  the  code 

;  required  to  branch  back  to  the  label  set  up 

;  at  the  start  of  this  loop  if  "A"  is  non-zero; 

;  drop  the  nesting  level  count. 

;  and  exit  from  the  macro. 


five  formal  parameters. 

If  "A"  is  blank  (no  actual  parameters)  must 
be  start  of  a  new  loop:- 

Increase  resting-level  count/ 

and  form  a  label  for  loop  return. 

and  exit  from  macro. 
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1 


.IF  U  X 

J  3  I  \S00004 


S00004=S00004-3 
.MEXIT 
•  ENDC 


P  Y 

K  I 

J1  I  X  R  Y  \S00004 


S00004=S00004-3 

.ENDC 


;  If  "X"  is  blank,  call  is  "LOOP  IF  CONDITION’" 
;  type:- 

;  Call  macro  J3  to  generate  Che  code  required 
;  Co  branch  or  jump  (depending  on  Che  length 
;  of  Che  loop)  back  to  the  label  created  at 

;  che  start  of  chis  loop,  if  che  condition  is 

;  satisfied. 

;  Drop  the  nesting  level  count 
:  and  exit. 


"X"  is  non-blank.  We  must  have  a  call  of 
the  "LOOP  IF  ITEM  X  R  Y"  type:- 

Call  macro  P  to  check  that  there  are  no 
unspecified  actuals*  (otherwise  report  error) . 

Call  macro  X  to  check  that  "I"  is  the 
character  string  WORD  or  BYTE*  (otherwise 
report  error). 

Call  macro  J1  to  generate  the  code  required 
to  jump  or  branch  (depending  on  the  length 
of  the  loop)  back  to  the  label  created  at 
the  start  of  this  loop  if  the  condition  is 
satisfied. 

Drop  the  nesting  level  count. 


•  ENDM 

♦The  nesting-level  count  is  stepped  by  3  to  avoid  a  clash  of  generated  symbols. 
LOOP  invokes  generation  of  symbols  S7,  S12,  S15  .....  THEN  and  ELSE  invoke 
generation  of  S10,  S13,  S16  . .  and  END  invokes  generation  of  Sll,  S14,  S17 


*P  and  K  are  further  examples  of  macros  which  do  not  produce  code.  They  direct 
the  assembler  to  output  an  error  report  to  the  assembly  listing  when  source 
program  syntax  errors  are  detected. 


2b 


(ARBCnDI*  i.  T»PiC*L  SOURCE  T£*T, 
I . . . *" 


.TITLE  £***<» LE 

.SBTTL  LIST  AND  CNVERT  S/RS.USEU  BY  PSEUOO, 

,«C*tL  MICROS 
PSEUOO 


,rt(( 

.SBTTL  LIST 
(DEBUG  LISTING 

i cntereo  with 


(listing  is  to 


program. entered  via  macro  •list1, 

•0  containing  number  qr  m«j  ran  listing 
SI  containing  ADDRESS  or  first  item 
Ri  CONTAINING  listing  cooci* 

B«LIST  BTTtB  IN  OCTAL 
e*list  wqROS  in  octal 

••LIST  BTTtS  IN  BINARY 
•■LIST  «ORUS  IN  BINARY, 

TTV, FORMATTED  in  COLUMNS, 


CREATE  MURRC*  OBURRER , •« ,  CmawS.TQ  NOLO  one  TTY  LINE. 

CREATE  MOROS  «CMA«SG£NCHATED*  TO  NOLO  NUMBER  OR  CHARS  PER  TTY  mQRD. 


LXSTENO«R0 

ITEHROInTERaRI 

COLUHNSaRS 

ORCOOtAh? 

CMARCOUNYaR* 

BURRROXnTERaRS 


I  ADDRESS  OR  LAST  ITEM, 

lAOORESS  OR  ITEM  CURRENTLY  BEING  LISTED, 

I  NUMBER  or  COLUMNS  lert  in  CURRENT  ttt  line, 
IURERATION  code, 

I  COUNT  OR  NUMBER  OR  CHARS  RUT  In  OBURRER, 

( OBURRER  POINTER. 


TAB* I t 

NOROBXTaE  (THIS  BIT  IS  SET  IN  OPCODE  FOR  wORO  OPERATIONS. 


f NUMBER  OR  CHARACTERS  PER  COLUMN, AND  NUMBER  OR  COLUMNS  PER 
(LINE, AS  A  FUNCTION  OR  OPCODE!* 

MOSlZEl  .BYTE  3 
TTCOLSI  .BYTE  B, 

.BYTE  A 
.BYTE  8, 

.BYTE  B, 

.BYTE  • 

.BYTE  IB, 

.BYTE  3 

(DESPATCH  VECTORS  ROR  CONVERSION  ROUTINES!* 

CONVERSIONS!  CONOB 
CONO" 

CONBB 

CONBM 


(CONVERSION  ROUTINES!* 

CONOB I  CONVERT  BYTE  • ITEMPO INTER  TO  ASCII  OCT  AT  BURRPOlNTER 
t  A  l  T 

CONOR  I  CON VERT  WORD  • I TEMPOlNTtR  TO  ASCII  OCT  AT  BURRPOlNTER 
CUT 

CONBB I  CONVERT  BYTE  UTEmROInTER  TO  ASCII  BIN  AT  BURRPOlNTER 
CUT 

CONBWICONVCRT  WORD  RITCMPOINTER  TO  ASCII  BIN  AT  BURRPOlNTER 

CUT 


2-1 


LISTI 

*00  R1.H0  iron*  LISTENO, 

novo  MDSI IE (OPCODE) , CMARSGENEhATEO 
TYPE  NL 

PEAUV  OBUFPER  FOP  FASCII  OUTPUT  TO  TTY 

LOOP 

POINT  BUFFPOINTEP  AT  OBUFPER  OATA 
nova  TTCOLS(OPCUDE), COLUMNS 
CLH  CHAHCOUNT 
LOOP 

00  PCONVERSIONS(OPCOOE) 

BIT  PMONOblTfOPCOOE 

IP  BET  THEN  «AOD  P2, 1 TEMPOINTEB*  ELSE  «JNC  ITEMPOiNTEBa 
AOO  CMARSGENERATED. CHAHCOUNT 
ADO  CMARSGENERATED, BUFFPOINTER 

otc  columns 

IP  ZERO, BRANCH  TO  LINETEPMINATION 

nova  stab, (bupppOINTERI* 

INC  CHAHCOUNT 

LOOP  IP  HOMO  iTtHPOINTIB  (■  LISTENO 

LINETEBMlNATIONi 
nova  #CR, (8UPPP0I NTEP ) * 
nova  *LP» (BUFFPOINTEP)* 

AOO  lit CHAPCOUNT 
SET  OBUPPEP  COUNT  TO  CHAHCOUNT 
OUTPUT  DBuPFEH  TO  TTY 
TEST  OBUPPEM  TRANSFER  DONE 
LOOP  IP  HOMO  ITEMPOINTEP  (■  LISTENO 
EUT 

.PACE 

sbttl  cnveht 

(BINARY  TO  ASCII  9THING  C ON VERSI ON , ENTEPEO  VIA  HACPO  'CONVERT*, 

I  ENTERED  PITH  Pa  CONTAINING  AUOBESS  OP  PIELO  AT  HHICH  ASCII 
(CHARS  APE  TO  BE  PLACED, PI  CONTAINING  BYTE  OP  MORD  POP  CONVERSION 
(ANO  Hi  CONTAINING  OPCODE!" 


f  BaCUNVEPT  BYTE  TO  OCTAL  STRING 

(  2*  ,MOPU . . . 

I  41 . BYTE . BINARY.  ,,,, 

(  6  ■  ,  . . MOPO . . . 


(CHARACTER  HASPS, AS  A  FUNCTION  OP  OPCOOEl- 
CHMASPI  1 77770 
1TTTT0 
I7777A 
I 7777A 

(NUMBER  OP  CHARS  OEVELOPEO.AS  a  FUNCTION  OP  OPCOOEl* 
CHANNOI  3  (3  CHARS  IN  AN  OCTAL  BYTE, 

t>  IETC. 

16. 

OPCOOEaRi 

MASPaPB 

CHCOUNTaPS 

CPIELOaNB 

OPITEHaRl 

HOPPSPACEaPA 


2-*L 


CNVtUTI 


MOV  CMHA3*(0PC00E) .MASK 
MOV  CMARNOIOPCODE ) .CMCOUNT 

*00  cmcount , cp ield  ipielo  is  pillbo  »a«»v»»os« 

NIXTCMARI 

MOV  OPITEM, MORXBPACE  I CBT  ITEM, 

BIC  NASX.nORXSPACE  mask  it, 

AOO  MB , HOAX BRACE  ICONVERT  TO  ABCII, 

MOV#  WORKSPACE, •(CPlELO)fANC  PUT  IT  IN  Fit LD. 

OIC  CMCOUNT 
IP  NONZERO 
THEN  BECIN 

IP  »0R0  OPCODE  )■  M 
THEN  BECIN 

LBKIPT  OPITEM  1  PLACE  ■ 

ENO 

ELSE  BECIN 

LBMIPT  OPITEM  S  PLACES  R 

ENO 

BR  NEXTCHAR 

ENO 

ELSE  BECIN 

EXIT 

ENO 

P1NXSH 


lAPPtNDI*  3,  *S!)tMftL'>  L1STIN6. 


"»C*0  VK0S*  c>£ll« 

T*«Lk  OF  CONUMS 

I-  J  (.1ST  »HO  C**>t*T  S/x  i ,  USf.D  H  Y  PSCuOO. 
i -  I  LIST 
J-  l  CNVfctfT 


1-  » 


t«»"M  MACAO  VAB5*  0J»JAM«72  0*1(0  PACE  i 


*  000000 

10 

11 

12 


,rme  example 

.oottl  list  amo  cMveor  s/ps«uteo  or  pocooo, 

.MCALL  MACOOO 

pseuoo 


*3'2~ 


xahple  macro  v«a5*  bi-jan. /2  02119  pace  0 

I0T 


e 

1 

2  00000 
3  00 1 0b 
« 
s 
0 
7 
• 

9 

0 

1 

2 

3 

4 

5 
b 

7  00110 
•  00111 
9  00110 
0  00113 

1  00114 

2  00113 

3  0011b 

4  00117 

5 

6 

7  00120 

a  00122 

9  0012« 
0  0012b 
1 
2 

3  00130 

4  00100 
3  0010? 
b  00210 
7  00212 
6  00244 
9  0024b 
0  00274 
1 

2  0027b 

3  0027b 

4  00300 


S3  0030b 


.SBTTL  LIST 

/DEBUG  LISTING  PROG* am , ENTEREO  VIA  MACRO  "LIST*, 

/ENTERED  WITH  40  CONTAINING  NUMBER  OP  ITEMS  PO0  LISTING 
/  01  CONTAINING  ADDRESS  OP  P1RST  ITEM 

1  02  CONTAINING  LISTING  CQOEI* 

i  0*list  bytes  in  octal 

I  2* L 1  ST  WORDS  IN  OCTAL 

I  4»lIST  bytes  in  binary 

/  *»L I  ST  M0R08  IN  BINARY. 

/LISTING  is  TO  TTY.POHNATTED  in  columns, 

CREATE  SUPPER  OBUPPER.bA.  CHARS. TO  HOLO  ONE  TTY  LINE. 

CREATE  WORDS  wCHARSuENERATEO*  TO  HOLO  NUMBER  OP  CHARS  PER  TTY  wo 


000000  L I S  T£NO»R0 
000001  ITEHPOlNTERaRl 
000003  COLUHNSaRS 
000002  OPCOOEaRS 
000004  CH ARCOUN T«R4 
000005  RUPPPOlNYERaRS 


/  ADDRESS  OP  LAST  ITEM, 

1A00RESS  OP  ITEM  CURRENTLY  BEING  LISTEO. 
t NUMBER  OP  COLUMNS  LEPT  IN  CURRENT  TTY  LINE. 
I  OPERATION  CODE, 

/COUNT  OP  NUMBER  OP  CHARS  PUT  IN  OBUPPER, 
IDBUPPEH  POINTER, 


000011  T  A  8 ■  1  1 

000002  W0R08IT«2  /THIS  BIT  IS  SET  IN  0PC00E  POR  WORO  OPERATIONS, 


/NUMBER  OP  CHARACTERS  PER  COLUMN, AND  NUMBER  OP  COLUMNS  PER 
/LINE, AS  A  FUNCTION  OP  OPCOOEl- 


003 

NOSIZE  1 

.BYTE 

3 

010 

TTCOLSI 

.BYTE 

B  , 

00b 

.BYTE 

b 

010 

.BYTE 

». 

010 

.BYTE 

s» 

004 

.BYTE 

a 

020 

.BYTE 

lb 

003 

.BYTE 

3 

/DESPATCH  VECTORS  POR  CONVERSION  ROUTINES!- 


000130'CONVERSIONSI  CONOR 
0001b2*  CONOW 
000212*  C0N8S 

00024b*  CON0W 


/CONVERSION  ROUTINES!* 

CONOB  I  CON  VERT  BYTE  PITEMPOInYER 
EXIT 

CONOWiCONVERT  WORO  PITEMPOINTER 
EXIT 

CONSBICONVEHT  BYTE  PITEMPOINTER 
EXIT 

CONBW ICONVERT  WORO  PITEMPOINTER 
EXIT 


TO  ASCII  OCT  AT  BUPPPOINTER 
TO  ASCII  OCT  AT  BUPPPOINTER 
TO  ASCII  SIN  AT  BUPPPOINTER 
TO  ASCII  BIN  AT  BUPPPOINTER 


LIST! 

0b0 1 00  AOO  R1.R0  /PORN  LISTENO, 

1 Ib2b7  MQV0  NOailC(OPCOOC) .CMANSGENERATEO 
000110* 

177000 

TYPE  NL 


3-3 


EXAMPLE  MACHO  VP03A  01-JAN«72  02119  PACt  t* 
LIST 


36 

00310 

ST 

0P316 

SS 

0031b 

39 

00320 

116203 

b0 

0032b 

0001  1  1 
003004 

Rl 

00330 

b  2 

00330 

bJ 

0033b 

032702 

64 

00340 

000002 

63 

00332 

066704 

bb 

00336 

177330 

066703 

67 

00362 

177524 

003303 

be 

00364 

69 

00366 

112725 

70 

003T2 

000011 

005204 

T  1 

00374 

n 

73 

00400 

74 

00400 

1  12725 

73 

00404 

000015 

1 12723 

7b 

00410 

00001? 

062704 

77 

004  1  4 

000002 

7  S 

00420 

79 

00430 

S0 

00436 

®l 

00442 

BE 

HE  A  U  7  OBUPPEP  POP  PASCII  OUTPUT  TO  TTY 
LOOP 

POINT  BUPPPOINTEP  AT  CHOPPER  QATA 
MOVH  TTCOLSIOPCOOE), COLUMNS 

cl*  chancount 

LOOP 

DO  aconyehsionscopcuoe) 

BIT  •MOPOfalTiOPCOOE 

IP  SET  THEN  «AOO  »2 « I  TEMPO  I N  t£R>  ELSE 
AOO  CmARS&EnENATEJ.CMaPCOUNT 

AOO  CMANSGENEPATEO.HUPPPOINTEP 

DEC  COLUMNS 

ip  zehOiBkanch  to  li Nt termination 

MOV»  *TAH, (BUPFPOINTER)* 

INC  CMAMCOUNT 

LOOP  IP  oOPu  ITEMPOINTER  (*  LISTEnO 

linetehninationi 

mu V b  PCR# ( HUPPPOI NT£P ) ♦ 

MOVb  ALP , (BuPPPOlNTE R) ♦ 

AOO  *2 i CMAHCOUNT 

SET  OBUAPEP  COUNT  TO  CMARCOUNT 
OUTPUT  OBJPFEN  TO  TTY 
TEST  OBUPPEH  TNANSFE*  OONt 
LOOP  IP  *0«0  ITEMPOINTER  (•  LISTENO 
EXIT 


«INC  ITEMP 


3  -U- 


EXAMPLE  MACRO  V  R05  A  01-JAN.72  0  2119  PAGE  3 
CNVERT 


1 

.SBTTL  CNVERT 

2 

(BINARY  TO  ASCII  STRING  CONVERSION, ENTERED  VIA  MACRO  "CONVERT*. 

3 

/ENTERED  aITH  R0  CONTAINING  ADORE  S3  OP  FIELD  AT  HMlCH  4SCII 

• 

(CHARS  ARE  TO  BE  PL6CE0, Rl  CONTAINING  BYTE  0*  "ORO  FOR  CONVER0IO 

9 

(AND  R2  CONTAINING  OPCOOEI- 

6 

1  0»CONV£«T  BYTE  TO  OCTAL  STRING 

T 

1  2»« . ,.*0*0,.,, . . . 

*"N 

S 

4 

-“N 

1 0 
11 

(CHARACTER  MASKS, AS  A  FUNCTION  OF  OPCODE  1  • 

12 

00444 

177770 

C  HMA  SX 1  177770 

13 

00446 

1  T7T70 

177770 

-"s 

1« 

00490 

177776 

177776 

19 

00452 

177776 

177776 

V*N 

1  o 
IT 

(NUMBER  OF  CHARS  DEVELOPED, AS  A  FUNCTION  OF  OPCOOEI* 

!• 

00494 

000003 

CH ARNO l  3  (3  CHARS  IN  AN  QCTAc  BYTE, 

14 

00456 

000006 

6  (ETC, 

-s 

20 

00460 

000010 

0. 

21 

00462 

000020 

16. 

22 

23 

000002 

0PC00E»62 

24 

000005 

Ma$k»R5 

29 

000003 

CMCOUNTaRS 

s 

2b 

000000 

CFIELO4H0 

27 

000001 

0PITEM«R1 

20 

000004 

rOR« SPACE »R4 

24 

30 

00464 

CNVERTI 

31 

00464 

016205 

MOV  CHMASK(OPC0DE),MASK 

H-b 

000444  ' 

32 

00470 

016203 

MOV  CHARNOI OPCOOEI .CMCOUNT 

000454  * 

33 

00474 

060300 

APO  CMCOUNT , CF I  ELD  (FIELO  IS  FILLEO  "BACKHAROS". 

34 

00476 

NEXTCHARI 

39 

00476 

010104 

MOV  OPITEM,HORRSPACE  (GET  ITEM, 

36 

00500 

040504 

SIC  masa.rOnkspaCE  (mask  it, 

37 

00502 

062704 

A 00  *60, *0*2 SPACE  (CONVERT  TO  ASCII, 

000060 

30 

00506 

110440 

Move  M0RK3PACe,*(CFIEL0) (AND  PUT  IT  IN  FIELD. 

34 

40 

00510 

005303 

DEC  CMCOUNT 

41 

00512 

IF  NONZERO 

42 

00514 

THEN  BEGIN 

43 

00520 

IF  rORO  OPCOOE  )•  44 

44 

00526 

THEN  BEGIN 

45 

00532 

LSNIFT  OPITEM  1  PLACE  » 

46 

00536 

END 

47 

00536 

ELSE  BEGIN 

40 

00542 

LSNIFT  OPITEN  3  PLACES  R 

44 

00552 

ENO 

90 

00552 

000751 

BR  NEXTCHAR 

91 

00554 

ENO 

32 

00554 

ELSE  BEGIN 

93 

0056U 

EXIT 

94 

00562 

ENO 

EXAMPLE  MACHO  VH05A  01-JAN-72  02114  PAGE  3* 
CNVCHT 


3'!*" 


1 


93 

9k  0*562 


FINISH 


CKAHPLt  "A C«0  VN05A  01-JAN-72  02H®  P*<*t  3* 
SYMHOl  T  AML  t 


4C  •  1  7  7  34»«? 

buptst*  •  •••••  s 

CCLEAR.  0000Mb 
CM ARNO  00045#K 
CHH4SN  000«##R 
COCHIN* *008003 
CONOB  P001300 
CN  •  000015 

OIV  •  1 77  300 

lTtN»O*«000001 
UNtte  «00«00B 
EBP  •  00000b 

HU  *  1 7  7  50# 

NEGATIa  177777 
NO NZE®*  000000 
OB|TENa(000001 
603171*  000001 
82  *1000002 
85  *1000005 

im  •  ••••••  u 

50  *1003006 


8*8  ■ 

177570 

80000#* 

000407 

810000* 

400002 

Sl«  • 

0003628 

817  * 

000532H 

TTY  • 

040001 

VSET  • 

04000# 

*08061* 

000002 

ZSET  « 

000000 

.  ABS. 

000000 

000 

000362 

001 

ERRORS 

0E7EC7E0I 

0 

FREE  CORE  1  7385, 

*0808 

*D7l*0T|X 

gjo*  •  .*•«••  o 
BYTt  ■  000010 
Cf  It  10*1000000 


CHARS# 

0001068 

CLEAR  • 

000000 

C  QN08 

0002128 

CONO* 

0001628 

C8ET  • 

000003 

HSP  * 

000006 

*80  • 

000000 

LIST 

00027bRt 

L  88  • 

000005 

MUL  • 

177506 

NtlTCH 

000476* 

NSET  • 

177777 

OVENPL* 

000004 

80  *1000000 

05  *1000005 

8b  *100000# 

SET  •  000002 

SPACE  •  0 0 0 0 # 0 

800000*  000002 
800005*  000010 
312  *  0005168 

515  •  0005308 

T*B  *  000011 

UNSAVE*  •*••••  (■ 
*081 ZE  0001108 
*08 #88*100000# 


BuMPO* 

CARRY  • 

CHA8C0* 

CHCOUN* 

CNVE8T 

CONB* 

CON*E« 

DBUPPE 

MSB  ■ 

u  • 

LISTEN* 
HAS*  • 
NCLEAR* 
NL  • 
OPCODE* 
PC  • 
81  • 
8#  « 
87  • 

SETuPP* 
SR  • 
S0000 1  * 
80000b* 
SIS  • 
Slb  • 
TTCOLS 
VCLEAR* 
*080  • 
ZERO  • 


1000003 
000003 
100000# 
1000003 
000«6uRG 
040246® 
0401208 
0004008 
040005 
040012 
1000000 
1000005 
040001 
»•••••  0 
1000002 
1000007 
1000001 
100000# 
1000007 


17777b 
040400 
000011 
0405548 
00053b® 
000111® 
000005 
040k  0  7 
000000 


\~L 


IAPPENDIX  «,  AS3EK8LT  LISTING, PITH  MACAO  EXPANSION t 


I (NON»3ATI3PieD  CONDITIONAL#  not  LISTED.) 
example  MACAO  VH05A  81.JAN-72  02120 
TABLE  OP  CONTENTS 

!•  3  LIST  ANO  CNVERT  8/PS, USED  BT  P8EUOO, 

2-  1  LIST 

3-  1  CNVEPT 


EXAMPLE  *4C*0  VB05*  01-J4N-72  02120  P*Gl  1 


1 

ft  000000 

0000  M0 
000001 
000002 
000003 

000004 
0000U5 
00000b 
00000? 
000P0? 
00000b 
1  T  /  7  7  fe 
177570 
177304 
177302 
177300 
1 7730b 

000001 

177777 
177777 
000000 
0000U0 
0  0  0  0  U  0 
000002 
000002 
BB00B3 
000003 
000004 
000004 
0  0  0  0  0  1 
000005 
000006 
000007 
000010 

000012 

000040 

00001 5 

000007 

000010 

000011 

T 

a 

9 

10 
11 
12 


.TITLE  EXAMPLE 

.50TTL  LIST  *  NO  GNVEPT  »/»S,USEU  bT  PSEUDU. 

.►•CALL  H»C»OS 

pseuoo 

W0*Xf» 

»l«»l 
M0»X2 
N  3*  X  3 

W44X4 

«5«X5 

MftiXb 

M?*X? 

PC  •  X 7 
3P  *  Xb 
Sw*17777b 
3«»*l  77570 
Mlv«  i  7  7  304 
XC*1 77302 
OlV*177300 
NUL 417730b 
POSITItt 
NtGAT 1 4«1 
NSE  T  4  « l 
ZfcP04t 
ZbtT.0 
CL£*»«0 
NQNZk  b«2 

set*2 

CAPRY« j 

CSET*3 

OVtHPL44 
VSE  744 
NCLE4N41 

VCLEAr»5 

CCLtAk«b 

40NU«7 

BYTE*#. 

.GLOPL  tiUFTaT,  8* VC,  UNS*yE,SfcTUPP,CNVEHT,B10X,LlST.NL 
LF  •  1  2 
SPACE*40 
Cw  *  1 5 

30000447 
300005*8 , 

30000b*9. 


1 


E*AMPi.t  MACRO  VR05A  01-JAN.T2  02120  PAGt  2 
LIST 


1 

i 

3 

4 
3 
b 
T 
8 

9 

10 
I  t 

12  00000 

00000 

00000 

00004 


.SHTTL  LIST 

( DEBUG  LISTING  PROGRAM. ENTERED  VI*  MACRO  "LIST". 

(ENTERED  »ITM  wii  CONTAINING  NL'HbER  OF  ITEMS  FO»  LISTING 
(  R1  CONTAINING  ADDRESS  OF  FIRST  ITEM 

(  R2  CONTAINING  LISTING  COOtl* 

(  e«LlST  BTTtS  IN  OCTAL 

(  2*lIST  nDROS  in  OCTAL 

(  4»LlST  BTTtS  IN  9INART 

(  b*L I  ST  MU»OS  IN  BINARY, 


13  00106 


00106 


14 

15 
lb 

17 

18 

19 

20 
21 
22 

23 

24 


IL1STIN&  IS  to  TTY, FORMATTED  IN  COLUMNS, 

CREATE  buffer  DBUF  F  E  * , b4,  CHARS, TO  «OLO  ONE  tty  LINE. 

000000  S00k'00*0 
000100  OBUF  F  £  R ( 64 , 

100000  100000 
000100  64, 

, bL *  9  b 4  , 

000100  S00000«S00000»b4, 

000001  5  0  2  0  P  1  ■  1 

, ME  *  I  T 

CHEATt  «OKOS  <CHARSG£NERATE0*  TO  HOLD  NUMBER  OF  CmaRS  PER  TTY 
000000  S00000A0 
000000  900001*0 

, i rp  o,«ch*nsgen {rated* 

G  I  0 

500000*300000*2 

.ENUM 

000000  ChARSGEnERATEOIB 
000002  300000*500000*2 

.mexit 


000000  LISTEND*R0 
0000P1  IT£MP0INTER*R1 
000003  C0LUMNS*R3 
000002  OPCOOt  *R2 
000004  CHARC0UNT*R4 
000005  BLFFP0INTER*R3 

000011  TAH*11 
00000?  RQR0BIT*2 


(AOORESS  OF  LAST  ITEM, 

(  ADDRESS  OF  ITEM  CURRENTLY  BEING  LlSTEO. 
(NUMBER  OF  COLUMNS  LEFT  IN  CURRENT  TTY  LINE, 
(OPERATION  CODE. 

(COUNT  OF  NUMBER  OF  Chars  Put  IN  DBuFFER, 
(OBUFFER  POINTER, 


(THIS  BIT  IS  SET  IN  OPCODE  FOR  »0»0  OPERATIONS, 


25 

(NUMBER 

OF  CHARACTERS 

2b 

(LINE, AS 

A  FUNCTION  01 

27 

00110 

003  HOSIZti 

.BYTE 

3 

28 

00111 

010  TTC0L5I 

.BYTE 

8. 

29 

00112 

PHb 

.BYTE 

b 

30 

00113 

010 

.BYTE 

#. 

31 

00114 

010 

,  b  YTE 

». 

32 

00115 

004 

.BYTE 

4 

33 

0011b 

020 

.BYTE 

lb. 

34 

00117 

003 

.BYTE 

3 

35 

3b 

(OESPATCH  VECTORS  FQR 

37 

00120 

00013P*CONvEhSION8I 

C0N08 

38 

00122 

000162* 

CONOR 

JR 

00124 

000212* 

CONHS 

40 

0012b 

000246* 

CONBM 

U-3 


eiAMPut  macro  vrasa  ui-jan-72  02120  pagi  2* 
LIST 


•  2  ICQnve»SION  RQuT  1st  S  I  - 

« }  *«V.  1 CL'MJBiCONveur  BYTE  PITEHPOInUR  TO  ASCII  OCT  AT  BuPMOtNTt* 

301)0  P  NuPFPOInTER 

001)0  *  HTT£ 

001)0  «  OCT 

031)0  SAVt 

001)0  UU  SAVE 

001)0  004767  JSR  PC/SAVE 
0P003PG 

.4txIT 

03  1)4  ST«c*  dUFPPQINTfcR 


000000  S10000*0 

,I4P  0, «0uFF PUINT£R» 
MUV  0 , - ( 3P 1 
3 1 0000*  S 1 0000*2 
,  t  N  U  H 


00  l  )4 

010546 

MOV  fluFF  P'JlNTtR  ,  -  (SP) 

330002 

31030  0*813003*2 

001)6 

111101 

MO»H  PI T£MPOINT£», H 1 

c 

00140 

042701 

1  7  7403 

HIC  4177430,41 

00144 

C  OCT 

( 

00144 

305032 

CL«  «2 

00146 

UNS1AC*  40 
.  I  *P  U ,  < A  0» 
fl  C  V  (6P)*,ti 
,ENU4 

< 

00146 

312630 

40V  (SPJ«,R0 

( 

00  150 

Ou  CNVEwT 

00150 

004767 

000)13 

JSR  PC.CNVtMT 

( 

#  4  £  X  I  T 

00154 

UNSAVt 

30154 

UU  UNSAVt 

< 

00154 

004767 

JS4  PC, UNSAVE 

000300G 

,4EXIT 

< 

00160 

EXIT 

30160 

033207 

RTS  PC 

00162 

CUN04ICUNVE4T  6 OR U  PITEmPOInUR  TO  ASCII  OCT  AT  HuEPPOlNT£» 

< 

03162 

P  flUFFPOINTtR 

03  162 

A  «04U 

00162 

«  OCT 

( 

30162 

SAVE 

00162 

00  SAVE 

00162 

304767 

J  SR  PC, SAVE 

( 

0000006 

.4EXIT 

00  1  66 

STAC*  dUFFPOINTER 

1 

000003 

S  1  3  0  0  3  •  3 

,IRP  U, <flUF F POINTER* 

MUV  G,-( SP) 
si0e00»si0030*2 
f  t  N  U  4 

c 

33  166 

010546 

4QV  BUFFPOlNTtR,-(SP) 

c 

0000112 

S  1  0v)03* S  l  0000*2 

4-'^ 


k  *  A  m  P  L  t  VKi's*  l  -  J  *  >.  -  7  0  0  0  I  0 «  P  A  0  k  C* 

LIST 

■) «’  1  7  ti  0  111  u  1  NUI  PITtMMOJNTEW.kl 
00  170  '  OCT 

00170  <)WUV  "C>  »0.«0 

0  0  0  a  0  £ 

02176  U  4  S  T  A  C  «  '■ 

,  I«P  j ,  «Hg  » 

Muv  (SP)*,0 

,e\CM 

00176  010600  I'l/*  (  S  P  )  •  i  W  0 

00000  DC  C'-vtxT 

00000  00«7o<  JS«  PC, C*.V£4T 
000060 

,*£  «  IT 

00004  UM4*t 

00000  Liu  uM>  4  v  E 

00004  004767  JS»  PC.UNS4VE 
00U0t)?O 

. Mt  *  I  T 

«b  20  0  1  0  E  »  1  T 

00010  020007  0  T  S  pc 

47  00010  Cu*»«!AlCUMvEHT  87TE.  #  1  T  t  *P0 1 6  T  £  6  TO  ASCII  Hi*  *T  BuffPClNTfL 

00010  P  BwMPi.l7.Tt* 

00010  «  4  7  T  £ 

00010  .  dlv 

00010  S  4  V  £ 

00010  00  Save 

00010  004767  JSP  P  C  #  S  4  V  £ 

0000000 

,Mt«IT 

0001  6  3  7  A  C  a  Puff  POINTER 

1100200  S10000A0 

,  14P  U, «Puf fPOlNTER* 

mov  a, • (sp) 

SI  0  0  00461  0  0  0  2 ♦ 0 
.£NOM 

0001  6  01  0546  M(jv  HUffPUlNTt«,-(SP) 

030000  Sl0V0«J*6l  0000*0 
02000  111101  MUV0  6lTEMP0JNTt»,Pl 
00000  040701  bIC  *177400,81 

177400  1 

00006  0  H 1 N 

00006  010700  MOV  *4,40 
000004 

00030  U631AC*  P0 

, I 8p  U , <40* 
mov  (sp)*,i; 

,  kNOM 

000  30  010600  MOV  C3P)»fHk5 
00034  00  CNVE4T 

00034  004767  JS8  PC.CvVEbT 
000004 

.ME  KIT 

03040  0 N  S  *  V  k 

00040  OUONSAvk 

00040  0047b7  J  6  w  PC.U6SAVE 
0002030 

.ME  *  I  T 


U--b‘ 


w 


U5T 

US  UU0u* 
000U* 
0P,;«b 
0O0*b 
I >00*b 
000Ub 

000  n 

P00«b 

000*b 


00050 


00050 

0005* 

0O«:5b 

00«:5b 

O00b0 


0.30b0 

000b* 

002b* 


00070 

0O0T0 

O00TU 


50  0007* 
0007u 

5  t 

50  0007b 
5 3  0007b 
5*  00500 


55  0030b 
0030b 
0030b 


5b  00310 
00310 


57  0031b 
0051  b 


mOC  v  ~0>j»  «'l-J*N»T0  00100  P*6£  0* 


fc  ■  I  T 

000007  HtJ  PC 

C0Nb«iCUb»t*>7  ■0X0  #IT£»1P01NT£»  TO  *SCIl  BIN  *7  BuPPPOI  NTt* 
0  huPPPUIN7H» 

»  *oxo 
*  h  1  n 
S*vt 

LMj  3»Vfc 

0tU7b7  J 3 X  PL, 3**1 
0000000 

.Mt»IT 

S  T  *  C  *  HuPP  POlNttP 
000000  310100*0 

,1X0  U,«tHlPpPOlNT£M» 

00V  U,-ISP) 

310000«9l00W0«0 
,  t  N  0  M 

01wSub  0(JV  OuPPPOjNTtX,-(SP) 

0000  0  0  31 0  000*  31 0000*0 
011101  00V  PtTt0POlNT»M,«l 
F  0  1  N 

010700  00V  »b,*0 
00000b 

UN  5  1  *  L  *  X0 
,100  O,«X0» 

00V  (SP)*, 0 
,  t  N 13  0 

010b0P  0UV  (SP)*,00 
00  CNvtxT 

00*7b7  JSX  0C,CNV£nT 
0001 7* 

,  01  *  1 T 

ONS*  wfc 
00  0N3*vt 

000  7b  7  J5«  PC,ON»*V£ 

0000U0O 

.0t*IT 

EXIT 

000007  wrs  pc 

LIST  I 

0 b 0 1 0 0  *00  01,00  IPOXM  LISTEND, 

1  1  bPb 7  0uv(j  bOSIZMOPCUOt)  ,CH*KSG£Ntx*TEO 
000110' 

1 77bO0 

Tvxt  Nt 
00  NL 

00*  7b  7  JS*  PC.NL 
0000001. 

,HEXI  T 

X  t  *0  7  ObUPFfcR  POP  P  *SC  1 1  OUTPUT  TO  TTY 
0050b 7  CL*  ObUPft«*0 

1 7  7«b« 

,ME*IT 

LOO* 

000010  S0000*«50000«b 3 
SP0XH1  V30000* 


EXXMPeE  M»C*0  VH054  01-J4N-72  02  120  P4GE  2* 
LIST 


St  00316 
0(1516 


St  00322 

60  00326 

61  00330 

00330 


62  00330 
00350 


63  00334 

64  00360 
00360 
00360 

00360 

00362 

00366 

00366 

00360 

00360 

00366 

003S2 

00352 

00366 

00366 

00352 


65  00352 

66  00356 

67  00362 


000316*31 2*. 

,  *f.  X  I  T 

POINT  BuFFPOlNTtA  4 T  OBU0FER  06T6 
012705  MOV  #UBuFFEN*6#0UFFPOINTEA 
000006* 

,*e*iT 

1  16203  MOVtt  TTCOLS(OPCODE), COLUMNS 

0001  1  1  * 

003006  CIA  CHtHCOUNT 

LOOP 

000015  S00006*S00004*3 
SFOhHl  \ 3  0  0  0  0  6 
000330*315*, 

.MfcxJT 

00  >CON0ER3IOnS(OPCOOE) 

B06772  JSP  PC»6CONV£PSION3(OPCOOt} 

000120’ 

4  ME  X  I T 

032702  BIT  6*OkOBIT, OPCODE 

000002 

IF  SET  Then  <600  «2, ITEmPQINTeR*  ELSE  <INL  ITEMP 
0  BNE i BEG  THEN  <400  *2,  l  TEMPOInTEA*  ELSE  <INC  l TEMPO InTEAp 

U56 

000013  300005*300005*3 
000016  300006*500006*3 
37  OHM  l  \ 500005 
0X0360*313*4 

000362*. *,*2 

005201  INC  ITEMPOINTEA 

000366*,*. *2 

SF  OPM 1  SS00U06 
000366*316*. 

3F0HM2  \ 500005 
000360*,.513 

SF0PM3  BNE  \ 300006 
001002  BNE  314 
000366*. *S14 

062701  400  «2, ITEMPOINTEA 
000002 

SF  OHM i  VS0000S 
000  352 '  S 1 3* , 

5F0HM2  V  300006 
000346*4*316 
000344*, *,-2 

SF0HM3  0 A  \S0000S 
000402  BH  513 
U00352',*313 
056 

000011  300O06*S00006-3 
000010  500005*500005-3 
, M£  *  J  T 
.MEXIT 

066704  400  CM4A3CENEA4TE0,CM4AC0UNT 

177530 

066703  400  CM4A36ENEN4TE0, BUFPPOINTCA 

177524 

025303  OEC  COLUMNS 


U.-7 


example  **c no  vno*a  0i*jan*t2  02120  paoe  2* 

LIST 


6»  00364 


IP  IEMO, BRANCH  TO  LINlUPMINATION 


T2 


00364 

0  stu.BNt  HW4NCH  «to»  line termination 

0k)3b4 

001*0* 

HtJ  LINT TCPMlNATlON 

,«t*IT 

,H£XIT 

00366 

11272* 

000011 

MOV B  »TAB, (BUFf POINTER 

00372 

00*204 

INC  CMAPCOUNT 

00374 

LOOP  IP  «0»0  ITEMPOINTEP  (•  LI 

04)374 

P  lijtenc 

0037u 

K  MUPCl 

00374 

Jl  mOPO  ITEMPOINTEH  (4  LI3TEN0  V 3 0 0 00 4 

0037a 

17  mOnO  ITEhPOlNTEP  (■  LIBTEND  Branch 

0«3T<i 

K  nO»u 

005Tb 

020100 

C*P  ITEMPOlNTcP/LlSTENO 

0037b 

B  8LOS.0HI  BRANCH  470»  315  <> 

003Tb 

1017*4 

MLoa  si* 

.MEXIT 
.MEXIT 
t  M£X I 7 

000012 

300004*300004*3 

00400 

LINCTE0MINATIOM 

00400 

11272* 

00001* 

HO«0  4CP, (BuPFPOINTEP) * 

00404 

11272* 

000012 

MOVB  BLF, (BUFFPOInTEH)* 

00410 

042704 

000602 

AUO  42  f  CMAPCOUNT 

00414 

SET  ObUPFER  COUNT  TO  CMAPCOUNT 

00414 

P  CMAPCOUNT 

0041b 

010447 

177364 

MQV  CMAPCOUNT, ObUPPEP«A 

, ME  A  I T 

00420 

OUTPUT  OauFFEB  TO  TTV 
,  MC  ALL  10 

00420 

10 

000000 

Kt*o*e 

000001 

T  T  7  •  1 

000003 

LSPtl 

00000* 

MSP** 

000004 

LSP*  A 

000006 

M9P*6 

00420 

00  BIO* 

00420 

004767 

J3P  PC, BIOX 

0000004 

, ME  X 1 T 

00424 

000000* 

OBUPPE# 

0042b 

012 

.BYTE  12, TTV 

00427 

001 

.MEXIT 

00430 

TEST  U8UPPCH  TBANSPEN  DONE 

00430 

10*767 

177347 

T JTB  UBUFPEPO 

40434 

10037* 

BPL  ,-4 

0043b 

LOOP  IP  MOPO  I  Tempo inter  (a  libtend 

0043b 

p  LISTENO 

TO  SIS 


EXAMPLE  MACRO  VMS!  0I*JAN.72  02120  PACE  2* 
LIST 


00436 

00436 

00*36 

00436 

00436  020100 
00440 

00440  101726 


000007 

01  00442 

00442  000207 

02 


K  40*0 

Jl  MOM0  ITCH0U1MTE4  (a  L I STt NO  VS00004 
10  aOHO  ITENPOINTEH  (■  L 1 9Tt.N0  BRANCH  TO  912 
A  MORp 

CMP  ITEMPQXNTER.LISTENO 
0  0LO9.0MI  0MANCN  «T0*  912  4» 

BL09  012 
."EXIT 
.me* IT 
,"E*IT 

900004* 000004a 3 

EXIT 

*T0  PC 


*  aai 


EXAMPLE  M*C«0  VR05A  01-JAN-72  02120  P»(.t  3 
CNVf  WT 


1 

2 
S 
* 

5 

6 
7 
• 

9 

10 
11 

12  00*** 

13  00**6 
1*  00*50 

15  00*52 

16 
17 

10  00*5* 

19  00*50 

20  00*60 
21  00*62 
22 

23 

2* 

25 

2b 

27 

28 

29 

30  00*6« 

31  00*6* 

32  00*70 

33  00*7* 
3*  00*76 

35  00*76 

36  00500 

37  00502 

38  00506 

39 

*0  00510 
*1  00512 
00512 
00512 


42  0051* 
0051* 


0051* 


*3  00520 
00520 


.sbttl  INV£*T 

lolNAt<V  70  ASCII  S  T  w  I  nG  C  OH  VE  *  S 1  On  ,  fc  N  T£  RE  0  VIA  MACRO  "CONVENT*  ■ 
,tNTtR£U  *  I  T  H  60  CONTAINING  AuOWESS  OF  FIELO  A7  WHICH  ASCII 
| CHAWS  AN t  TO  8t  PUACEO.m  CONTAINING  8  7  Tt  0#  "0 »D  FOR  CONVtRSIO 
IAnu  H2  C ON T A  I n I nu  OPCOOEI- 
I  0»CONVfcNT  B 7 Tt  TO  OCTAL  STRING 

I  2 . ..MONO . 

|  *• . 8TTt BINARY . 

|  6* . «0«U . 

ICHANAC7EN  masks, AS  A  FUNCTION  OF  OPCGOtl* 

177770  CHMA&M  177770 
177770  177770 

177776  177776 

177776  177776 

i number  of  chars  oevelopeo.as  a  function  of  orcodei- 

000003  ChANNUI  3  73  CHANS  IN  AN  OCTAL  BYTE, 

000006  6  (ETC. 

P00010  a. 

000020  16, 

000002  0PC00E*K2 
000005  H A SK • 65 

000003  ChC00nT*»3 

000000  CF IELO*h0 
0U0001  OPITEH*Kt 
00000*  *OWK SPACE »W* 

C  N  V  t  N  T  I 

0 16205  NOV  CHMASK (0PC00E)#MASK 

000**4 ' 

016203  MOV  CmannO(OPCOOE),CHCOUNT 

000454' 

060300  A  00  CMCOUNT.CFIELD  1 F  I  ELD  IS  FILLED  "BACK* ARuS* . 

NEXTCHARI 

01010*  MOV  OPITEM, WORKSPACE  »CET  I T t M # 

040504  BIC  MASK, WORKSPACE  I  MASK  IT, 

062704  ADD  F60, WORKSPACE  KONVIRT  TO  ASCII, 

000060 

1104*0  MOVb  WORKSPACE, -CCFIELO) I4N0  PUT  IT  IN  FIELD. 

005303  DEC  CMCOUNT 

IF  NONZERO 
U  BnE,BEO  «>  «* 

001002  HNE  .*6 
.HEXIT 
.MEXIT 

THEN  MEGIN 

U56 

000213  500005*500005*3 
00001*  300006*500006*3 
SF0WM1  \  S  00U05 
0P051 * ' S 1 3*  , 

000520'.*,** 

IF  wORO  OFCOOt  )•  *4 

K  WORO 


4-/0 


•  »  <  ■  s  !  *  *  1  : 


i  »  ;  <  Ji 

i  e  i  i  ;  ' 

M  i  l  »  )  * 

it'.'* 

f  *  *  .'  J  ,  5  .  .  i» 

tt'.e* 

1  <t  1*  *  2 

i - : i  .  •» 

,  *  •  i ;  * 

. •- * :  • 

**  tiSei 

•  •£  * 

it'.i* 

iitl.S 

tia:' 

lists 

i*:**.  it *4(3 

t • IS t\ 

1  ;  :  ••  ■ . 

A  3 

»**Hi  1 

*  ,  •  ,  •  4 

a  i  --  i  i 

5  * 

«<!Jr 

tie'*: 

0  » 

2731* 

teste : 

* ;  -  :  * :  •  i  * 

it  die 

(  •  5  *  j  •  ; 

i  i  -  > 


it 

dllt 
a?5  J* 

22231b 

i » :  -  - : 

*  3  ;  f  • . 

\S2228b 

jh; 

as  5b 

22232b 

s( :*-2 

‘.•lib 

v  3  2(2  73 

2  732b 

s»:  =  -i 

\32242b 

4232b 

222  1 b  7 

317 

if  at* 
22231b 

‘.•317 

as  3* 

:3b 

22221  * 

32222b*S2222b*l 

22221 1 

3o2Zr3»S20223-l 

•  7 

4231*1 

2231b 

u  *3  tt 

Ci.SE 

22721 b 

3  2  2c75*S72225«1 

2022 1 7 

Sc77?b*S2r22b*3 

2?3](i 

42232b 

30-2 

'.■31b 

\ 300273 

2232b 

s*  :**■* 

\ 32227b 

2732b 

2  2  2  1  b  7 

J*P  317*4 

270212 

72312 

22031b 

S( G«“2 
'.■317 

\ 322  2?b 

2231b 

22231b 

SfO***! 

*  3  1  b  •  , 

\ 302703 

2273*2 

'.».♦* 

•  • 

273*2 

223*2 

P  » 

023*2 

2702*1 

ClC 

0234* 

27b20  1 

POP  OP  I  TE  ** 

220772 

« "E  PT  1 

•  1 

AS*  OP  I  TE  w 

,ENO* 

2034b 

20b20 1 

*3“  OPJTEo 

07337 

07b201 

ASM  OPITEM 

,«*IT 


I ;  c 


LSHin  CPJT£«  J  PLACES  * 


u-» 


fc»4«PL€  MACRO  VH05A  0J.JAN-T2  0212*  PAGt  s* 

CNWt«T 


44  00352 
00352 


E*0 


0*532 

00336 


00334 

00314 


00554 


3 2  00354 

00334 


3E0*"1  V300086 
0H0 552*317*. 

SM)4M2  \S00003 
000536* .*316 

SfOfcMj  JrtH  '300006 
00336  000167  JH0  817 
000010 

000332  * , *317 
00332  056 

000014  300006*300003*3 
000013  300005*300003-3 

30  00332  000751  8*  '«e*TCH*0 

31  00334  *N° 

0055a  3EO«01  \800006 

000334  *  9 1 4  » , 

SF0HM2  \300003 
000514*. *313 

3F0««3  JH0  \ 300006 
00314  000167  314 

000034 

00053«*. *314 
056 

000011  300006*900003-3 
000010  900005*300005-3 

Hit  bEblN 

U36 

000013  300005*300005*3 
000014  300006*300009*3 
00354  3 EQKN2  \S00005 

000514*. *313 

00il*  3F0«M«  \S00006 

00514  000167  JMF  314*4 
000040 

00?20  SF04H2  \300006 

000554*, *314 

0059a  SF0KM1  \90000S 

000534*31 3*  . 

000560*. *, *« 

33  00560 

00560  000207  473  PC 

34  00562 

00562  SF04M1  \ 300009 

000562*314*, 

00362  SF0RM2  '300*09 

000554*. *313 

00S5w  3F04M3  JHF  \300009 

00534  000167  JHP  314 
000002 

000362*. *314 

00562  °54 

000011  300006*800006-3 
000010  300005*300005-3 

96  00362  F1N13H 

000001  * .tNO 


E4IT 


fcNO 


4-|l 


EXAMPLE 

MACRO  VR0S A 

01-JAN-72  02120  PAGE  3* 

c 

SYMBOL 

table 

*c  • 

177302 

BIO*  • 

BuFFPO*X000005 

<r 

BUF  T  3  T  * 

BYTE  • 

000010 

CARmY  * 

000003 

CCLEAR* 

000006 

CFI£lU*X00e0P0 

CHARCO*X000004 

CMAKNO 

000454R 

CHAnSU 

000106* 

CmCOUn *100000 3 

c 

CMMASA 

000444* 

CLEAR  a 

000000 

CNVERT 

000464*0 

CULUMN<*000003 

CONbB 

000212R 

CONbw 

000246* 

CONUt) 

00013LR 

CONOR 

000162* 

CUNVE* 

000120* 

< 

C*  • 

0000  1  S 

C  3b  T  • 

000003 

ObUbFE 

000000R 

OIV  • 

1 7  T  300 

MSP  • 

000006 

MS*  ■ 

000005 

ITEMPO*X000«J01 

XBO  ■ 

000000 

LF  ■ 

000012 

< 

LINETE 

000400R 

LIST 

000276NU 

L I S  TEN*  *000000 

tSP  • 

000004 

LS*  • 

000003 

mask  ■ *000005 

Mg  * 

177J04 

mul  • 

177306 

nclear* 

000001 

< 

NEUATJ* 

1  77  77  7 

NtXTCM 

000476* 

NL  * 

NON { t  R ■ 

000000 

NSET  • 

177777 

OPCODE <*000002 

OPITEM**000001 

0  v  E  h  F  l  ■ 

000004 

pc  **00e007 

r 

POS I T I ■ 

00*1001 

*0  >1000000 

*1  <*000001 

*2  **0000  tig 

*3  <*000003 

*4  **000004 

PS  **000005 

R  6  <*000006 

R  7  **000007 

SAVE  • 

SET  * 

000002 

StTuPP* 

3P  1X000006 

SPACE  < 

000040 

SR  ■ 

177776 

3RR  * 

177570 

300000* 

000002 

S00001* 

000000 

300004* 

000007 

S0000S< 

000010 

300006* 

000011 

S10000* 

000002 

312  * 

000316* 

S  l  3  • 

000554* 

S14  • 

000562R 

SI  5  * 

000330* 

S  1  6  * 

000536* 

sir  « 

000552* 

TAB  < 

00001 1 

TTCOLS 

000111* 

TTY  • 

000001 

UNSAVE* 

VCLEAR* 

000005 

VSET  • 

000004 

WUSIZE 

000110* 

*0*0  • 

000UL7 

RORObl* 

000002 

<O*KSp*X000004 

Zero  • 

000000 

{set  «  000000 


,  AbS,  000000 

000 

000562 

001 

ERRORS  UETECTEOI 

0 

FREE  COREI  7585. 

RUKDS 

, OTlZ«OT|»/Ll|ME/NLlCNO 

4-- '3 


(APPtNUiX  S,  PSfcUOO  MaCNO  OEF  INITJOnS. 

I - - - 

.MACPO  MAC«US 

.mCaul  «ITh,  TVPt,CNtAYE,U»NIFT,OU.£L 

.nCALU  POINT. IF, THEN, t NO, ELSE. SF OK*»| , SFONHd, STACK , UnSTaCK 
,  PC  ALL  3F0*nS,  SFO«H4,B,l.ET,  St  T  ,  St  TUP .  !  NI T ,  LI  ST  ,  F ,  t .  H ,  uSb,  056 
.PC ALL  UOOP. J1 CONVENT, PSEUDO, K,P,UN,SV,S A Vt, UNSAVE, 00 
■  PC  ALU  TtsT, Jump, neaOT, STEP, CYCUE, INPUT, OUTPUT, KUU.OIV 
, PC ALU  KE»t»vt,0l8CAN0,f INISh.EaIT 
,ENUP 

.MACRO  OU 
.OSAdU  usu 
.ENuH 
.HACNO  EL 
. t N A  HL  USd 
,£num 

.MACRO  UN 

,tNNO<<  JUNSHEC  PAP  AN 
.tNuP 

.MACRO  SY  X 

,t»NON  ISYNTAII-  I 

,ENON 

.MACRO  P  X 
.IF  S  X 
UN 

,ENUC 

.ENUN 

,PAC«0  A  I 

.IF  DIP  1,-OPO 

.IF  OIF  I  ,  t»  YTt 

,t»HOH  JHYTt  ON  mONUS 

.  t  NL)C 

«EnuC 

,tNUN 

.MACRO  STACK  X 
S100N0KO 
.IMP  U,«X> 

MOV  0,-(3PJ 

Sld0ttdaSld0U«)*2 

,ENOM 

,£NOM 

. M  A  C  V  U  UNSTaCK  X 
.  I  NP  U,«X» 

M0»  ( SP ) * , 0 
.tNUM 
,  tNOM 

.MACPO  U I  SC  AMU  NABCOtFUM 

ADO  »N*N,SP 

,tNOH 

.MACPO  RESERVE  NABC0EF6H 

SUB  AN*N,  i,P 

,£N0* 

.MACHO  FINISH  X 
.IF  NF.  SVOBMS-S, 

.ENRON  ItNOU 
,tNOC 

.IF  Nt  SOOUUA-7 
.ENRON  >  UOOP  1  1 

.  EnuC 

,  t  NU  X 
,ENOH 

.MACPO  EXIT 
NTS  PC 
.EnOM 


.macho  pstuno 

*0»*P 
H  1  >  1 1 

Hit} 

#«»X« 

»•» 

■  *»»*» 

*»«*7 
PCH7 
SPIU 
SM*  1  7  77  7*, 

5-««t77!)7<t 

HUH7MUU 

OIVM7T  J00 
MuuaUTJPS 
POSI T  J • 1 

NtuaT last 
NSETa-1 

rt#u»* 

ZSETatl 

CLtAH.H 

NONie«i.a 

StTii 

CAMHTO 

CSET ■ J 

0V£MI La4 

»S£T«4 

NCU*«M 

i CLtAKai 
CCLt  AMa*» 

*0»0* 7 
8YTc«b. 

.ULO'IC  BUPTST, SAVE, unsavc# sc  tupp.cn tert, bio*, list, nl 

LMU 
SPA Cfe«40 
CR  ■  1 5 
800004*7 
30000b*S. 

300000*4. 

,fcNO« 

.MACHO  00  P  X 
,17  a  <«» 

JiR  PC.P 

."EXIT 

.  fcNOC 

STACK  <11 

J3R  PC.P 

ADO  AM  00*117 «SP 

,tN0M 

.HACHO  USMlFT  X  »  M  N 
P  N 

,IF  IUN  N,H 
CUC 
HUH  X 
.KEPT  ¥-J 
ASS  X 
,EnP« 

.mexit 

.ENOC 

.IP  Ion  n.l 
,R£pt  t 

ASU  X 
,  tNOH 
«  ME  X  I  7 

.ENOC 
ST  N 
,ENo« 


,mac»0  CONVERT  I  *  TO  A  T  A  2 

P  l 
ft  I 

h  r 

Save 
STACft  2 

•If  ion  i.*q»o 
no v  t,m 
9  T 

•  fcNUC 

■IF  ION  I.BTte 
MOVH  *,*1 
SIC  »IT7*U«,R1 
G  T 

•  fcNOC 

UN 5  T  ft  C  ft  NO 
00  CN  V  £  R  T 
UNSAVt 

•  ENOH 

,MAC»0  LIST  N  1  FH  *  M  T 
9  T 
H  T 

,IF  OIF  I.HVTES 
•IF  OIF  l,«0*03 

sr  i 

■  M£ X  I  T 
.tNOC 

•  ENOC 
Save 
STftCft  N 
OEC  ( bP ) 
muv  a,«i 

•IF  IuN  I,-0»oS 
F  T 

ASL  (SP) 

.ENUC 

.IF  ION  I.BTTES 

G  T 

.Enoc 

UNSTACft  »U 

00  list 

UNSAVE 

.ENON 

.MACHO  F  T 

.  1 1 F  ION  T,  OCT.  MOV  9Z,f>i 
. 1 1 F  ION  T, MIN, MOV  «N,R£ 

,ENu« 

.MACRO  g  t 

.Ilf  10*  T.OCT.CCR  »2 
. 1 1 F  ION  T, BIN, MOV  •»,*£ 

,ENOM 

.MACHO  H  T 
•IF  OIF  T.MJN 
•IF  OIF  T , OCT 
ST  T 

.enoc 

•  Enoc 

•  ENOM 


r 


.MACHO  «l)C  A  N  C*  *N  IN  c  u 

,  I  f  I  l>  N  A  ,  b  » 

mov  a, mmuc 

.If  t..«  H 
MOV  MHb.lN 
.If  NB  C 
MOV  MAC.C 
.ENOC 
,tNJC 
.ME  X  I  T 
,tNi)C 

,  l  f  o  if  a ,  a r 

MOV  A.M mo 

mov  h.mmul 

.If  MM  AN 
MOV  MMU.C 
.If  Mb  0 
MO  V  •  »  A  L  «  0 
.tNUC 
,  tMoC 
.ENOC 
,  t  M  l)M 

, MACHO  OIV  A  U  *  C  *N  If*  0 
,1F  ION  A, BY 
MOV  U.MOIV 
.IF  Mb  * 

, I F  Mb  IMA 
MOV  MAC#** 

,  EnoC 

MOV  M  Mb  . AN 

,£noC 

.meait 

.EMOC 

.IF  OIF  A, BY 
MOV  A.MMU 
.IF  ’ON  G.ttY 
MOV  X  i  MO  I  V 
,IF  Nb  C 
.IF  Mb  IN 
MOV  MAC. IN 

,tN0C 

MOV  MMO.INA 
.ENOC 
,  ME  X  I  T 
.ENOC 

MOV  O.MAC 
MOV  C.MOIV 
.IF  NB  AM 
.IF  NB  E 
MOV  •• AC . E 

.ENOC 

MOV  MMQ i  0 

.ENOC 

.tNOC 

.tNQM 


,n»chu  ue t  *  t  in  z 

f  i 

.If  ION  T.BCOCKSUt 
HOV  X-A.Z 
,Nt*lT 
,  tNOC 

.IF  ION  T i STATUS 
HUVd  **3.2 
,«t*IT 
,ENOC 

.IF  ION  Y.HOOe 
NQVH  X*2,Z 
.NtXIT 
.  tNOC 

.IF  ION  Y, COUNT 
HOY  X  *4  «  Z 

,ne*it 

.tNOC 
»Y  Y 
.  €  NON 

,N*CHO  HIT  X  Y  TO  Z 

F  Z 

.IF  ION  Y . IF 
NOV  Z.X-10 
.NEXIT 
.tNOC 

.IF  ION  Y , OF 
NOV  Z,X«fc 
.NtXIT 

,e\oc 

.IF  ION  Y, COUNT 

NOV  Z,X*4 

.NtXIT 

.tNOC 

BY  Y 

,£NOH 

.HACHO  SETUF 
00  BETUFF 
,tNON 

.MACHO  INIT  Z  T  X  A  V 

f  r 

00  BIOX 
Y 

.BYTE  t.Z 
,ENON 

.NACHO  SAVE  X 
00  SAVE 
,EN0N 


.NACHO  UNSAYE 
00  UN8AVE 
.  t  NON 


.MXOO  irl*«YTP£0 
.IF  tu  1 

a  beo.hne  i  «h»  r  «t * 
,£noC 

.IF  £0  1-1 

S  BPL,HH1  X  4N*  T  <T* 

,M£XIT 

.ENOC 

.IF  Eit  1*1 

8  8MI,8P£  X  <N»  Y  «T» 

. MEXIT 
.ENOC 

.if  f.a  i-2 

n  aNF.,atu  x  «H»  y  <t> 

.MEXIT 

.ENOC 

.If  EQ  1-3 

8  dCS'HCC  X  «R»  Y  4T> 

.MExIT 

.ENOC 

.IF  £0  1-4 

8  8VS.8VC  X  «M>  Y  4T» 

,M£XIT 

.ENOC 

.If  £Q  1-5 

8  avC.ftvS  X  4N»  Y  4T» 

."EXIT 

.ENOC 

.IF  EU  I-b 

8  BCC.BC5  X  4H»  V  4T* 
.MEXIT 
•  ENDC 

.IF  NS  44* 

X  I 

.  1 1 F  ION  I «  BYTE. CMPfl  X . Y 
, 1 1 F  ION  I.wOMO.CnP  i . Y 
.IF  ION  4W»,« 

8  BE0.8NE  T  4P»  E  <0» 

.MEXIT 

.ENOC 

.IF  ION  4«>,1  [ 

B  8NE.BE0  T  4P»  E  40» 

.MEXIT 

.ENOC 

.IF  ION  4R>.) 

8  0MI.SLOS  T  «F>  £  40* 

, MEXIT 
.ENOC 

.IF  ION  4«»,  ( 

8  BtO.BHis  T  «P>  E  40* 

.MEXIT 

.ENOC 

.IF  ION  4H>. ) ■ 

8  BMIS.BLO  T  <P>  E  4 0> 

.MEXIT 

.ENOC 


.if  ION  <«*,  (« 

8  61.03, BHI  T  «F*  E  «Q> 

,M£*IT 

.ENOC 

.if  ion  «n>,3) 

8  BUT, RLE  T  «P*  E  «U» 

, ME* IT 
.ENOC 

.1 f  ion  <h»,s( 

8  BLT.BUE  T  <P»  E  «U» 

.MEXIT 

.ENOC 

.IF  ION  «R*,3)» 
a  BGt . RLT  T  «P»  E  «U» 

,Mt*IT 

.tNOC 

,1*  ION  «k*,S(« 

8  BLE.BGT  T  «F»  E  «U* 

. M£  *  I T 

•  ENOC 
ST  «R* 

•  ENOC 

,ENOM 

.macro  im 

300005»S0B009O 

S0000b*SRM00b«3 

,£NOM 

, MACRO  09b 

S0000b»80B00b-3 

-sea0esis00003>3 

,ENOM 

.MACRO  8  ABR  BBR  *t  *2  *3  ** 

.if  b  xi 

ABR 

.MERIT 

.ENOC 

.IF  NB  XI 

.IF  ION  II, BRANCH 

.IF  B  15 

ST  ? 

,Me*iT 
.ENOC 
ABR  *3 
.MEXIT 
.ENOC 

.IF  ION  X|, JUMP 

.IF  8  *3 

ST  T 

.MEXIT 

.ENOC 

BBR  ,*b 

JMR  X  J 

.MEXIT 

.ENOC 

.IF  ION  X|, THEN 
.IF  8  «*£► 

•  r  1 


,M£«!T 

tt*uc 

,1F  NH  *J 
,\f  Ion  mj, tiit 
.IF  M  *X«» 

sr  T 
,Mf «IT 
.tN0C 
Uib 

3f0*m  \sodoas 
.*.♦< 

Mu 

.•.*1 

SFONM1  \30HU06 
sfonf^  vsueees 
sfokms  arh  ssyaacb 
tz 

SFOMM1  \SHkJ0P)5 
3fouhg  \3oaaab 
•  •  •  mZ 

SF Ohm J  UN  \SUH0U5 

056 

.MEXIT 

.endc 

.ENoC 

U36 

SFOhHt  \Sl400US 

*Z 

SFORrj  \Slr>«lt306 
sfonh£  \hoamab 
3F0n*3  8HH  \SH0U06 
056 

.MExIT 

.ENOC 

.ENOC 

.ENOM 

, MACHO  THtN  SON  * 

•IF  Nd  bGN 

,IF  OIF  BGN,MEUIN 

3T  8GN 

,M€*IT 

»ENUC 

.ENOC 

.IF  H  HUN 

.P*INT  BEGIN  I 

.ENOC 

.IF  NH  X 

.IF  DIF  x,» 

sr  x 

.MEXIT 

•  ENOC 

.ENOC 

US6 

SFOMMj  \3mi0(,15 

.•.*# 

.ENUM 


sfohmi  300009 

tM»CH0  tND  *  Y 
.IF  NO  * 

,if  i/ir  t.i 

,1  r  dif  *.» 

ST  X 

,«£*! r 

,£NOC 

.ENOC 

.If  ION  *.T 
.If  Hi  T 

,lf  DIF  T  ,1 

SY  Y 

,M£XIT 

.ENOC 

.ENOC 

t  ENOC 

,ENOC 

.IF  LE  300003-6. 

,£H»OH  I  TOO  MANY  END81 

,M£XIT 

.ENOC 

9F0RM1  >900006 
SF  OH  m2  >300005 
SFOHMJ  JMP  >300006 
096 

.IF  NO  X 

.IF  IJN  X,T 

.IF  NE  S00005-B. 

.EWhOR  f£NO  MI33IN6 

ENO  1 

.ENOC 

.ENOC 

.tNOC 

,CNO* 

.MACHO  JFO0N2  800005 

.•S’S0H«09 

.ENOH 

.macro  SF0RR5  BX  »* 

8X  3»3X 
,'JM* 

,ENOM 

.MACHO  ttSt  »<*N  * 

.IF  NB  OGN 

.IF  OIF  0GN,(itGlN 

, ERHOH  I EL*t  BGN  T 

,M£a  I T 

.ENOC 

.ENOC 

.If  0  HCN 

.HriINT  JAAHtGINl 

.ENOC 

.IF  NS  A 

.IF  OIF  X,» 

SY  X 
,  M£  X  I  T 
.ENOC 
,E  NOC 
056 

SF0RM2  >300005 
SHORN*  >900006 
9F0RM2  >900006 
9F0MHJ  >300009 

,ENOM 


r-q 


,m»CNO  SFoPM**  SBBPBB 
JMP  9'<W0'd«>9*“ 

.ENOM 

,MAC«0  CYCLE  M  Q  *  8  T  tL 

P  T 

el 

.IF  ion  n i on 
.IF  ION  M,1P 
CMP  T-10>T •i 
810  L 

SOU  T-JB.T-10 
LIAOU  T-«,T-10 
OL 

.MEaIT 

,tN0C 

.IF  ION  M,OP 
CMP  T»6,T»2 
0LO  L 

308  T-12.T-P 
U  I  *00  T-4.T-* 

OL 

.MEAIT 
.ENOC 
CMP  H.T-2 
0LO  L 

SJB  T-Ii.M 
L  I  *00  T-«,M 
OL 

,H£AIT 
,  ENOC 

,  IF  ION  K'BACK 
.IF  ION  M,IP 
SUB  T-4.T-1B 
CMP  T-10.PT 
BMI3  L 

ADO  T-I2.T-IB 

LI 

OL 

.MEAIT 

.ENOC 

.IF  ION  M,OP 
•00  T-A.T-8 
CMP  T-b.PT 

•  MIS  L 

ADO  T-12,T«* 

LI 

OL 

.MEAIT 
.ENOC 
SUB  T-«,M 
CMP  M.PT 

•  Mis  L 
AOO  T-I2.M 
LI 

OL 

.MEAIT 
.ENOC 
»Y  H 
OL 

.ENOM 


5 -10 


,N*C»0  POINT  P  TO  0  8  S  T 
,!P  ION  C.tNO 
NOV  i-i,P 
*00  3-4, P 
, NEXIT 

•  ENOC 

.IP  ION  H , BLOC* 

.IP  ION  Q.PIP3T 
NOV  *T»P 
.NExIT 
,£NDC 

.IP  ION  0. LAST 
NOV  T-2,P 
.NEXIT 
,£NOC 

,IP  ION  (J,IP 
NOv  T-J0.P 
.NExIT 
.£NOC 

.ip  ion  a, op 

MOV  T-4.P 
.NEXIT 

•  ENDC 
ST  0 
,£N0C 

.IP  ION  N.OAT* 

NOV  40*6, P 

.IP  NS  S 

•IP  DIP  8. END 

9T  S 

.NExIT 

,£NOC 

*00  0*4. P 

.ENOC 

,Ne*IT 

.ENOC 

9T  ? 

,ENUN 

,N*C«0  STEP  «  8  C  0  t 

P  t 

.IP  ION  C»ON 
.IP  ION  4, IP 
*00  E-4,E-10 
,N£XlT 
.ENOC 

.IP  ION  A, OP 
*00  E-4.E-* 

,N£*IT 
.ENOC 
*00  E-4.A 
.NEXIT 
.ENOC 

.IP  ION  C,8*C« 

•IP  ION  A. IP 
8U8  E-4.E-10 
.NEXIT 
.ENOC 

.IP  Ion  a.op 
80S  E-4.E-* 

.NEXIT 
•  ENOC 
80S  E-4.A 
.NEXIT 
. ‘■■NOC 
ST  C 
,ENON 


r-n 


,hacr o  loop  i  l  *  *  r 

.IF  H  * 

9000»<»«100<tP4*J 

3F04MI  N940004 

.Ht*IT 

.tNUC 

,I>  NH  » 

.if  lt  sflooifa-ic, 

Sr  «L00P* 

« t  Ni)C 

,IF  ION  !,TIH£9 

otc  * 

J  i  \3H0ttM* 

S000044S0«00«-S 

,H£XlT 

,£N0C 

,IF  o If  a.i f 

•  r  <t> 

,Ne»ir 
,tNOC 
.if  t>  * 

J  J  1  \S,J0004 

B0000443000D4-J 

,H£XIT 

,tN0C 

p  r 

*  i 

]|  I  >  *  )  \300004 

SR00044S00004-J 

,ENOC 

.ENQM 

.MACHO  J|  1  I  >  T  It 
.IF  LT  .-3*34-040, 

IF  I  X  4  Y  BRANCH  TO  3*34 

, ME  X  I T 

.ENOC 

IF  1  A  R  Y  JUMP  TO  3*34 
,ENOM 

.MACHO  Ji  84 
»NE  8*3« 

,tNDM 

, H4CR0  JJ  I  34 
.If  LT  ,-8*34. 04*. 

IF  1  BRANCH  TO  3*34 

,m£xIT 

,ENOC 

IF  I  JUMP  TO  3*84 
,ENOM 


b-iv 


,*UC*JO  C  » t  *  T  c 
90400d*M 

,ir  10*  «I»,LJST 

, !  9  o  «"* 

UN 

,*£ *IT 
.ENOC 

,lf  I  UN  «U*,»0»0* 
H*N 
X 
X 

M«H 

X*N*N.,M».«H» 

XI.8LX*  N 
900«'P0*9009U0*N*N 
SBauni  (8 
. N€  x  I  T 
.ENOC 

,19  I  UN  «U* »  BY  T  t  3 

N 

X 

X 

M 

X»N.«H» 

XI.HLXrt  N 

»aa?<j«)»b0.)Haa*N 

909801*1 

,N£X I T 

.ENOC 

8t  r 

, Mt  X l T 

.ENOC 

,  IX  ION  <  I »  > BU99C8 
,19  B  N 
UN 

«N£  X  I T 
,£NUC 
X  I  N 

100000 

N 

,8L»N  N 

S000U»)*500000*N 

800801*1 

.nexiT 

•  EnOC 

.19  ION  «I», HO*OS 
•00001*0 
.100  0,«x» 

010 

900000*800000*1 

.ENON 

.HexiT 

.ENOC 

,19  ion  «i»,0rrc9 
•00001*1 
,1»P  a,«x* 
oi.arte  0 

900090*800000*1 

,t  nun 

."EXIT 
,  tNOC 

•  T  *1* 

,tNO" 


r-o 


,n»c«0  *!Th  0  I 
300002*0 

.if  eo  300001 

, i »f»  o,« x» 

a 

309002*30OB02*2 

.tNjh 

,E#dC 

.IF  Nt  390001 
,I»f  u,«*> 

,«rr£  « 

390002*300002*1 

.fcNOH 

,£MUC 

909000*999000*900002 

.•.*390000 

.END" 

.rUCNO  TYPE  Mi N  0  TLI  Tl2  TLS  »L* 
.IF  DJF  «H*,NL 
CL 

00  BIOX 
LI 

.IF  B  0 
.BYTE  12.1 
,£NDC 
.IF  NB  0 
.BYTE  10.1 
D 

.CNOC 
BH  LA 
LI  10 
0 

L3IL2-L3-2 
.ASCII  "«■ 

.BYTE  CB.LF 

L2I.EVEN 

L«« 

OL 

.MEXIT 
.  ENOC 
00  NL 
.ENOM 


r-ilr 


,«iC*0  »g*OY  I  M  P  g  M 

,IP  0  M 

8Y  *OoP 

.Ht«IT 

,£NUC 

.1'  ION  h, *5c 1 1 

nuv  •e,t*e 
.*£<1 r 
.t^oc 

.IP  ION  «,P»SCII 

CUN  A*l 

.H£*JT 

,£NOC 

.IP  ION  H ,  B 1 N 
NO v  *J,4«2 

•  HE  *  I T 
.£NuC 

.if  ion  N,reiN 

NO  V  «1,X«2 

.  EnoC 
ST  N 
,£NOm 

,H»C»0  OUTPUT  *  T  0  N  C 
.IP  8  0 

.esnos  POEVICET 

, HE  4 1 T 

.£NUC 

.hc*lu  10 
10 

oo  aiox 

* 

.IP  »  c 

.»"£  12,0 

*  HE  X  I  I 
«  CN0C 

,srre  i4,o 
c 

,£NOH 

,H»cao  input  »  t  d  n  c 
.IP  0  0 

,EH«OH  I BUPPEPT 

.HEXIT 

.ENOC 

.hcall  10 
10 

oo  aiox 

0 

.IP  B  C 
.BYTE  11,* 

.HEXIT 

.CNOC 

.BYTE  u,* 

c 

,EN0H 


,ha c«o  test  a  p  o  r  a 

, If  NH  P 

,ip  ijn  p.chpohs 

STACK  »fl*J 

ja»  *m,«uptst 
onstack  m«j 

A00  «. *12, <SP) 

HOT  *(SP),<8P) 

JMP  PISP1* 

.♦12 

,♦1(4 

.♦A 

.♦2 

.HtAlT 
.CHOC 
,tNOC 
TSTd  H*3 
"PL 

,c*om 

.HACMO  jump  t  l  I  C  * 
,lf  Ion  c , CUM 
.•.♦12. 

L 

•  • « *s , 

.MCaIT 

,CNOC 

.IP  I OH  e.COP 

« ■ . "8  . 

L 

,A.*6 
.MtXIT 
.  tNOC 

.IP  ION  C.THUNC 

.•,«b 

L 

,«.♦« 

, MCAIT 

.CHOC 

.IP  ION  C.MOOC 

L 

,«,*2 

.MCaIT 

.EHOC 

.IP  ION  e.CMKSUM 
,*,•2 
L 

.MCAIT 
.CHOC 
ST  C 

.CHJM 

.MACHO  10 

RBOA0 

TTTA1 

LM«5 

MS*»3 


5“ -Zb 


